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Aerospace  Medical  Research  Laboratory,  Wright-Patterson 
2  . je  Base,  Ohio,  by  personnel  of  that  organization. 

:  cation  of  these  methods  and  techniques  resulted  in  time 
-j  of  coordinate  positions,  relative  to  the  test  seat,  of 
:  r !  ■  .  nmetric  points  during  the  impact  and  response  periods. 

coordinate  system  defined  for  each  of  the  experimental 
■-  ;  t  programs  is  described.  Coordinate  positions  of  reference 
:  _ : . • s  and  camera  locations  in  the  various  coordinate  systems  are 

.  •umented.  The  techniques  used  to  locate  and  mark  anthropometric 
joints  on  the  test  subjects  are  described. 


HUMMARV 

* »'-f-  :  .til  r.v.  .  tie  'hn  •.•tees  ,  .r:':  ■  r -■  voc  ... r  js  emo i -ve  i  Lo  describe  , 

-rot.  .ii-.r,  s <_• •  •  a  :;’ot",cp.  p  tofu.ro  ,  ii;. ,  Lne  motions  of  bod-/  sto- 

■ants  r  t  su.tini;  iron  v  :  ( : o n  a :  :  ;  ■  -  a  *  ,  .xt^rr.a  !  lorces  v  o 

:  <-  u  -  v l  c  a  i.\as  ot  tiu.-  bocv  ar*.  a'  i  3  fa  rein. 

vroci-ssos  we:  *,  applies  to  ~wo  basic  tv  pes  of  motions ,  clanur 
ir.a  ncnp.anar.  Planar  motion  .jene  rail/  resulted  5  re  m  two  types 
-  on  cr  isn  simul anions ,  rearward  uccelerati ci.  of  the  test 

vehicle  from  a  standina  position  by  the  Herizcntu.  Imoulse  Accel¬ 
erator,  ancs  deceleration  of  the  test  vesicle  from  torward  mc.t  .0:. 
by  the  Hydraulic  Decelerator,  and  from  the  upper  torso  retraction 
environment  simulated  cn  the  Body  Positioning  detraction  be  vie*.- . 
bonplanar  motion  resulted  from  head  on  crash  sir-a-ur  .  cr.s  u.r. 
which  the  subjects  were  asymmetrically  rest  rained,  u:u.  t  v  : 
on  crash  simulations. 

Prior  to  each  experimental  test  preoram  the  pnotomer. •  . 
data  requirements  were  specified.  These  specifications  deter' 
mined  the  number  of  cameras  to  be  used  and  their  locations  anr. 
orientations.  The  specifications  also  determined  the  nunc  > r . 
moving  points  to  be  tracked  and  identified  them.  lei  ore- 
points  m  the  field  of  view  o:  .  ::  tn;.-.-  ... 

cials  and  their  coordinates  were  :  w  ■ 

The  recorded  test  data  were  pivjectoc,  rr  v .. 
a  viewing  screen  equipped  with  horizontal  and  vert, 
the  relative  positions  of  which  were  digitally  once* .  v  r \ 
shaft  angle  encoders  attached  tc  the  shafts  of  •  no  .  v  w 
knobs.  The  encoders  excited  up- down  counters  vt.v  ■' 
horizontal  and  vertical  displacement  :  r  v  1  ho  'vrv  ;  :  • 

jected  image  of  each  of  the  point. 3  r*\:.; .  .:  <  •  i  ;  .*•:•:*  1  ■' 

then  computer  processed  to  time  r. :  r.'s  *  f  f.«--  r  * 

sional  coordinate  positions  an  :  t  . .  .  •  -  .*.•.:  :  • 

acceleration  were  derived . 


The  techniques  and  procedures  applied  to  reduce  data  from 
each  of  che  major  test  programs  are  described  in  this  report. 

The  coordinate  solutions  wore  adequate  to  use  as  comparisons 
with  predicted  trajectories  of  the  various  points.  With  the  ex¬ 
ception  of  the  Injury  Protection  Comparison  study  and  the  elbow 
trajectory  data  from  the  -G  (6,  8,  and  10G)  study,  errors  in 
solution  were  less  than  one-eighth  inch.  Large  errors  in  x- 
component  of  displacement  were  evident  in  the  data  from  the  Whole 
Body  Restraint-Lateral  test  program.  The  indications  are  that  the 
angle  between  the  optical  axes  of  the  cameras  (11  and  12)  was  too 
small . 

Derived  velocity  and  acceleration  data  are  not  sufficiently 
accurate  to  use  for  predictions.  Improved  filtering  methods  and 
greater  accuracy  in  coordinate  solutions  would  be  required  to 
improve  the  utility  value  of  these  data. 
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SECTION  1 
INTRODUCTION 


The  high  injury  and  fatality  rates  associated  with  vehicular 
crashes  and  emergency  escape  from  aircraft  dictate  the  need  for 
determination  of  impact  exposure  limits  and  the  evaluation  of  the 
effectiveness  of  various  protection  system  configurations  anti  pro¬ 
tection  principles  and  techniques.  In  response  to  these  needs,  the 
Biomechanical  Protection  Branch  of  the  Air  Force  Aerospace  Medical 
Research  Laboratory  (A.MRL/BBP)  has  rigorously  conducted  experimental 
test  programs,  developing  in  the  laboratory  simulations  of  the 
environments  to  which  crewmen  might  be  exposed.  Data  collected  from 
these  experimental  programs  provide  the  bases  for  verification 
and/or  improvement  of  predictive  biodynamic  models. 

This  report  describes  and  documents  the  photometric  analysis 
procedures  and  processes  developed  and  applied  by  the  University  of 
Dayton  Research  Institute  (UDRI)  during  the  period  1  September  1976 
thru  30  April  1979,  in  support  of  AMRL/BBP  research  and  development 
programs . 

The  photometric  work  accomplished  is  summarized  as  follows: 

•  DOT  6  Year  Old  Child  Comparison.  The  reduction  of  photo¬ 
metric  recordings  of  points  on  the  heads  of  dummies  and 
baboons  to  time  histories  of  three  dimensional  coordinate 
positions  was  completed. 

•  Restraint  System  Dynamics.  Preparation  of  test  subjects 
by  application  and  documentation  of  tracking  fiducials 
was  accomplished.  Reduction  of  film  data  to  two  dimen¬ 
sional  time  histories  of  displacement,  velocity,  and 
acceleration  of  six  points  on  the  heads  and  extremities  of 
nine  human  subjects  and  one  manikin  during  ninety-one 
tests  was  completed. 

•  Whole  Body  Restraint-Lateral.  Preparation  of  subjects  by 
application  and  documentation  of  tracking  fiducials  was 
accomplished  prior  to  each  test.  Reduction  of  film  data 
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to  time  histories  of  three  dimensional  displacements, 
velocities,  and  accelerations  of  nine  points  on  the  heads 
and  torsos  of  ten  human  subjects  and  three  manikins 
acquire.1,  during  fifty  three  of  the  tests  was  completed. 

•  Upper  Torso  Retraction.  Preparation  of  subjects  by 
application  of  fiducials  and  measurement  of  variable 
breadths  was  accomplished  prior  to  each  test.  Film  data 
collected  during  two  tests  were  reduced  to  two  dimensional 
time  histories  of  displacements,  velocities,  an  1  accelera¬ 
tions  of  nine  points  on  the  subject  and  one  point  on  the 
retraction  piston. 

•  Impact  Protection  Comparison,  -50  G^  Accelerator. 
Preparation  of  subjects  by  application  and  documentation 
of  fiducials  was  accomplished  prior  to  each  of  eighteen 
tests.  Data  were  digitized  from  seventeen  of  the  tests 
and  were  reduced  to  time  histories  of  displacements, 
velocities,  and  accelerations  of  six  points  on  each  of 
the  subjects. 

•  Impact  Protection  Comparison,  -50  Decelerator. 
Preparation  of  subjects  by  application  and  documentation 
of  fiducials  was  accomplished  prior  to  each  of  twelve 
tests.  Film  data  from  eleven  tests  were  digitized  and 
reduced  to  time  histories  of  displacements,  velocities, 
and  accelerations  of  six  points  on  each  of  the  subjects. 

•  F-lll  Generic  Study,  -G^.  Preparation  of  subjects  by- 
application  of  fiducials  and  measurement  of  their  relative 
locations  was  accomplished  prior  to  each  test.  A  process 
was  developed  to  plot  pictograms  of  the  head  and  extremi¬ 
ties  of  the  subject  and  the  projection  of  the  harness 
geometry  in  the  X-Z  plane.  The  process  was  demonstrated 
with  data  digitized  from  film(s)  ot  testis). 
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ANALYSIS 


:  Fv"l 

i'.if 


Exposure  o:  syr.S'i.  n.  :  _.i  i  .  r-  m  :  ••  . 

+G  acceleration  env ironmer: t  •:  •  .su  a  ;  .-... 

—  z 

points  on  these  subjects .  '.V:i  :  L  ..  .•••:>:  •  •  • 

the  extremities  is  •iononstru?  eu,  i  :s  n<.r  r  :  . 

tude  as  to  warrant  three  d  inert  sic:n.»i  anuiys : 
point,  or  points,  were  described  by  data  !.  :  .  ‘ 
recorded  on  a  s  male  motion  picture  camera  o.d  •  :  .  :  y 

Horizontal  Impact  Facility  Photometric  Sa t  a  A:. a  !  e.  . :  .c 

The  test  programs  from  which  data  were  reduced  us :  t  h :  s  pi  .e 

were : 

•  Restraint  System  Dynamics 

•  Upper  Torso  Retraction 

•  Impact  Protection  Comparisons,  -50 

The  original  version  of  HI  FPL'  was  devc-lo:  ed  dun  r.<;  an 
earlier  effort  and  was  documented  in  AMkl.-TP-'7 d-9-i .  The  pieces, 
has  since  been  modified  by  the  addition  or  throe  subroutines, 
rotate,  mean  1,  and  mean  2,  which  were  developed  to  improve  acc. 
racy  by  minimizing  the  effects  of  camera  vibration  and  pin 
registration  variations,  and  to  provide  statist  ica..  inuicat  -ms 
reading  accuracy  and  smoothing  effects.  The  current  version  or. 
this  program  is  described  in  the  following  sections  am  1  is  ting 
the  program  source  statements  is  presented  m  Aorenoix  A. 


2.1  THEORY 

When  a  camera  photographs  a  scene,  the  film  •. v.-s  a: 
image  of  an  infinite  number  of  rays  of  light  emaii.it  in.t  iron  an 
infinite  number  of  points  in  the  scene.  if  the  b  ns  *  hr  :n  wh 

the  rays  pass  is  such  that  it  introduces  no  distoj  •  .  r. ,  t  in  n  t  n< 

image  of  a  given  observed  point  will  stride  the  :  :  ;m  e  a  . ;  st 

r  ,  from  the  center  of  the  ..rage  or  the  ore.  :r--  see:...  ;  i  i  •.  •• 

relationship  to  the  distance,  r  ,  :  r  -  :r  •  he  a  t  tea;  :  *  *  in. 

observed  point  m  the  p  Lane  normal  '  o  tin  ct  t  :  c .» .  ,•  :  . . 

tance,  s  ,  :  rort  the  ro.rai  :r  wt:  .  ■  'h  t :  i « •  .... 


Figure  1  illustrates  this  relationship. 


Figure  1.  Observed  Point  and  its  Film  Plane  Image 
Relative  to  the  Optical  Axis. 

Having  the  focal  length  of  the  lens,  s^,  giver,  by  the 
manufacturer  and  the  measured  distance,  r^,  the  distance,  rQ,  can 
be  calculated  by  similar  triangles  to  be: 


This  does  not,  however,  permit  the  determination  of  the 
vector  direction  of  rQ  from  the  point  at  which  the  optical  axis 
penetrates  the  object  plane. 

If  one  could  construct  a  perpendicular  set  of  axes,  x  and 
z,  in  the  object  plane,  for  instance  a  horizontal  and  a  vertical 
line,  intersecting  at  the  optical  axis,  then  the  vector  direction 
of  the  line  segment,  rQ,  can  be  determined  by  measuring  the  angular 
displacement  of  its  image,  r ^ ,  from  the  image  of  the  x  axis  or  by 
measuring  the  coordinates  of  the  image  point,  p.,  and  solving  for 


t1 


.-ons  iderol  the  -  qua  valent:,  of  a  plane,  normal  ro  the  optical 
that  existed  between  the  focal  point  of  the  camera  and  the  me  n 
e  towed  by  the  camera  at  a  distance,  s  ,  from  the  focal  point 
■Figure  3).  Now,  again  assuming  no  distortion,  we  have  the  re  - 
! a  t i on oh ip : 

r  r  r 

_  i  1  _  _J2. 

3  ii  S 

f- 


1 iguro  3,  Heidi ionship  Existing  Among  image  Plane,  Projected 
Image  Plane  and  Object  Plane. 


it  a  second  point,  p0,  on  a  line  parallel  to  the  optica 
i.na  and  passing  through  the  first  object  point  (such  that  r  -r  ! 

0  Z  ' . 

is  observed,  the  distance,  rjV  from  the  optical  axis  (or  center 

of  projected  image)  to  the  projected  image  point,  p  _ ,  is  related 

P 

to  the  distance  s  _  as  the  distance  r  is  related  to  s  _ ,  i.o.  : 

c  2  n  2  o  2 


? j  -  run:  .  Projected  Iraarrs  of  Observed  Points  Equidistant 
from  Optical  Axis  but  l.yinq  in  Different  Planes 
Normal  to  r.h a  Or  t  i  c a  1  A x  1  s  . 

Now  let  us  return  to  the  prop  lent  of  relating  the  orienta¬ 
tion  of  the  film  frame  imane  to  the  observed  scene.  As  has  been 
stated,  it  is  usually  not  practical  to  draw  a  set  of  axes  on  the 
observed  scene.  It  is,  however ,  practical  to  establish  a  coordinate 
system  in  the  scene  and  survey  the  coordinates  of  several  fixed 
points  of  reference  in  the  est  ah lib hod  system.  Figure  5  illustrates 
the  projected  image  of  the  points  j-  ,  the  origin  of  the  scene  co¬ 
ordinate  system  (SCS)  and  p.  and  p.,  which  are  surveyed  reference 
points.  For  the  sake  of  simplification,  the  three  points  are  co- 
planar  in  a  plane,  v=n,  normal  to  the  optical  axis  although  in 
practice  this  is  not  required.  The  images  of  these  points  are  pro¬ 
jected  on  a  viewing  screen  on  which  i  coordinate  system  is  imposed, 
which  we  shall  call  the  projected  image  coordinate  system  (PCS). 
Having  the  coordinates  in  the  DCS  of  the  two  observed  points  Pol 
and  p  the  pro  i or ted  image  can  now  be  rotated  relative  to  the 
PCS  to  r.  1 1  i  s  fy  the  relationship: 


2.2  HORIZONTAL  IMPACT  FACILITY  PHOTOMETRIC  DATA  ANALY'-'  i  - 

PROGRAM  (HIFPD) 

Horizontal  Impact  Facility  Photometric  Data  Ana  !.y:-:  ■  s 

gram  (HI  FPU)  is  a  die  ital  computer  p*  ngr'am  •••••  11  •' 

the  Hyge  Impact  Facility  Photometric  data  •  r  i-  •  <-  a-.  •  .  •  •  ;  • 

tection  Branch  of  the  Biodynamics  Bioengineer  i.u  q  1  i  v  .  a  .  or; 

AFAMRL .  The  program  was  compiled  and  executed  ■  ■:*.  t  r- 
computers  at  Wriqht-Patterson  Air  Force  Base.  ‘.he  ;  >.  ri ;  ' 
plot  package  is  used  to  plot  data  and  thus  mast  >•>..  .«•*.»••  ;  •  - 

load  and  execute  the  urogram. 

This  program  inputs  the  code  sheet  data  and  or  -"tram 
trol  prarameters  described  in  the  section  entitled  "poser  Lpt  tor 
Program  HIFPD  Input  Data  and  Parameter  Codes"  and  a  maxi tui  1  ‘ 
(MAXN)  frames  of  x,  7  position  data  for  the  range,  sled,  hip,  hr 
shoulder,  elbow,  head  point  1  and  head  point  2  for  ITYep-o  ar¬ 
range,  sled,  head  point  1  and  head  point  2  for  ITYPF-.l.  The  da* 
card  format  are  also  described. 

The  program  computes  the  following  four  types  of  data  a 
requested  by  the  program  control  parameters: 

(a)  The  input  data  versus  frame  number  and  the  frame  t 
frame  differences  are  printed  in  counts.  fho  range  difference 
is  subtracted  from  the  frame  to  frame  differences  for  each  of  th 
seven  parameters.  The  only  value  of  this  difference  data  would 
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radians  per  second  us  ini  a  moving  11  point  quadratic  fit  ‘  the 
angle  versus  time  data  U’cmputu.-;  derivative  of  1  >_-ast  ><’  ■  ■  ‘  •  _  ; 

tion)  .  The  angular  acceleration  is  computed  using  a  awin  ' 
point  quadratic  fit  of  the  ce  I  ocity  versus  ti::,e  da  '.a  . 
are  also  plotted  as  teiuusUti  on  the  test  setup  owa. 


(d)  The  linear  velocity  and  acceleration  data  f  > 
bination  of  the  eight  variables  are  computed  as  requested  on  tin- 
test  setup  card.  For  example,  the  linear  velocity  ana  !.c:tr 

of  the  head  point  1  relative  to  the  ranee,  sled  relative  '  tin- 
range  or  the  head  point  1  relative  to  the  sled  can  a  1 1  1< 

Note  that  range  relative  to  some  other  parameter  ;an:iut  s-<.  . 

To  compute  these  linear  velocity  and  acceleration  data,  tin.  an 

displacements  are  computed  for  the  variable  of  interest  relatin' 
to  the  reference  variable.  A  moving  eleven  point  (NF-11  iu.-.-i  • 

least  square  smoothing  iunevion  i'  applied  to  be  th  tin  ..  ...  -  t 
histories.  A  moving  eleven  point  quadratic  ?  east  square  fit  _s 
then  applied  to  these  smoothed  x  and  2-axis  displacement  data  tc 
obtain  the  x  and  z  components  of  velocity.  Next  this  same  smooth 
ing  routine  is  applied  to  these  x  and  z-axis  velocity  data  to  com 
pute  the  x  and  z  components  of  acceleration.  The  resultant  dis¬ 
placement,  velocity,  and  acceleration  data  are  then  computed  usin 
these  smoothed  x  and  z  component  data.  These  data  are  printed 
and  plotted  as  requested  on  the  test  setup  card. 

The  three  external  files  used  by  this  program  are  the  input 
file  (unit  5)  used  to  read  all  code  sheet  and  data  cards.  Ihe 
output  file  (unit  6)  used  to  print  all  output,  and  TAPE?  (unit 

used  to  generate  the  plotter  tape.  A  magnetic  tare  must  L-.  ."t. 

quested  with  TAPE?  as  the  local  file  name. 


The  follcwinq  sections  of  this  report  present  a  • 
scription  of  the  main  program  and  all  subroutines  exce: 
COMP  plot  routines.  Flow  char's  are  also  included 
Appendix  C  contains  a  com:  let-.,  listini  of  the  prewar, 
and  Appendix  D  contains  a  sample  run  v  Let-  '.'it:  1 1 

output  data  ( includir.-:  PT-  ‘  '  • 


.  i s  tin  i  o !  the  ; ■ 


-  - :  -  a  1 


1 


¥ 


Mu  in  Rout  i  »•»-• 

This  main  :  :  :>.•  e.  x:f  r  ;  •  ;  .  :  •  :  ,  - :  :  x  :  : 

ns  requested  '  y  ’In  •.  r  .• 

-  roquireu  .  x  :  . 

:  .  ui  s  are  ca’  .■  —  •  : 

:  .  it.  iuu  from  errco  in  •  :  r  >  1  f  .  so  i  -  ■ 

’  ::is  routine  . 

Me  thod 

The  proar.au  :  :  n  ire  ccoe  :;T  .  1  ,.; 

.  o  :  nod  in  the  "  Dos  or  a  i.T  i  oi:  or  £•  roe  ru/:  !-. '  b  ■■  o'  ;  ;  .1. 
■aes''  section  and  ini.  t  n  i.i  cos  the  r  r-  j:  at:  :  •  e  • .  '  •  i  .  •  . :  . 

. ter  s .  The  pi  n::s  :  <  a  1™  the  !  .  .  ■  .. 

a  uxis  data  foi  >.  "  .  i  :  :  n  • 

J)  for  each  :  rum  •  mu  o : .  '  1  in  id.  " 

:u  r  d  code  are  checked  for  incut  or*  ers :  errors  •  :  :s  -  - 1  ,.x- 

1  'gnostics  to  be  printed  and  the  processing  t  to  •••:  a  at-.:.:. 
•  more  than  MAXN  frames  are  read,  diagnostics  are  printed  ana 
.".os  beyond  MAXN  are  emitted  from  the  analysts  .  Th  ?  T  ;  L  .  ii 
a  are  computed  from  the  frame  number  as  foiievx. 

T(I)=:FR(I)/bT 


.  -  IFF.  (I)  is  the  frame  number  and  UT  is  fine  numbs  i- 
.  ■  u  second.  If  setup  card  parameter  IRS  in  area  t 
•.  ,n  .a::  of  all  x  axis  data  are  chanced.  di.su  vlrv,  c 
y  ir  -lrwtet  IADJ  is  greater  than  zero  .  ad  ius time: t  f  n.  t  . 

are  added  to  a'  x  and  z  axis  dot  •  .  A!  fo»  a  ■  '  • 

Lead,  a  summary  page  is  printed  listmu  all  t'_  pes  o' 
printe  ’  .  and  plotted  for  th  i  ~  tent  . 

When  progr  us  centre  1  pa  rare  to:  Ido  , 

.  .:  axis  data  are  printed  in  counts.  Tin  :  t  i:  e  * 

•  •  no  :  data  are  co-r-xtcd  ard  e:  :  n »  ,  •  •  ;  •  , '  1  • 


XD ( 1 ) =X (1,1)  -  X (1-1,1) 

XD ( J ) =X ( I , J)  -  X(I-1,J)  -  XD ( 1 J  . 

XD(1)  is  the  range  difference  from  the  frame  and  XD(J)  is  the 

t  h  th 

variable  minus  range  difference  for  the  J  variable  and  the  I 
frame.  The  above  are  also  computed  and  printed  for  the  z  axis 
data  . 

When  code  sheet  parameter  ICAM  is  greater  than  one  (camera 
is  on  the  sled)  subroutine  ROTATE  is  called  to  rotate,  translate, 
and  calibrate  the  x  and  z  axis  data.  When  ICAM  is  less  than  one, 
these  x  and  z  axis  data  are  adjusted  for  shifts  in  the  range  re¬ 
ference  reading  and  then  converted  from  counts  to  feet  (in  the 
Main  routine ) : 

H1=X(I,1)  -  X(l,l) 

H2=Z  ( 1 , 1 )  -  Z(l,l) 


X(I, J) 

=  (X(I 

,J) 

-  HI) 

*  CAL ( J) 

Z (I, J) 

=  (Z(I 

,J) 

-  H2) 

*  CAL(J) 

where  CAL(J)  is  the  calibration  factor  for  the  Jth  variable 
(J=2  to  8).  Next  subroutine  MEANl  is  called  to  compute  and  print 
the  mean  and  standard  deviation  about  the  mean  for  the  sled  re¬ 
ference  data.  This  provides  an  estimate  of  the  film  reading  errors 
since  the  adjusted  sled  reference  should  be  a  constant. 

When  program  cortrol  parameters  IPC  <  2  or  IPA  ■  2,  x  and 

z  axis  motion  relative  to  the  sled  are  computed  for  variables  3 
to  8  (or  7  and  8  for  ITYPE=1) : 

XD  ( I )  =X  (  T. ,  J)  -  X  ( 1 , 2 ) 

Z  D  ( I )  =  Z  ( I ,  J )  -  Z  (  1 , 2  )  . 

Subroutine  SM  is  called  to  compute  a  moving  eleven  point  INP-ll'* 
quadratic  least  square  fit  to  smooth  the  X  and  Z  axis  data.  The 
smoothed  data  are  stored  in  arrays  XX(T,JJ)  and  ZZ(I,JJ)  where 
jj=J-2.  As  a  result  of  the  eleven  point  smoothing,  five  frames 
are  lost  at  the  beginnina  and  end  of  the  test  data;  this  is  true 
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XD(I;=  erotan  oil.  h. 

where  index  3  is  shoulder  data  an  :  ;  r. is  hi;  :  ■ 
and  ZZ  arrays.  Ancles  XD  !  !  i  m-  ■■  r  • 

make  them  continuous.  Sabron*  .  "  * 

angular  velocity  in  radians  .:*.••  u  ;  :•  r:.  ■  •■■■  • 

(NP  =  1 1 )  quadratic  fit  of  the  !■  :m  •  mi  !  a  .* 

in  radians  per  second  sou  a  red  fm  an  •  •  ;  ':.*.  •; 

of  the  velocity  data.  The  man 1  u  Jst.n  are  print*  i 
IPA=0,  subroutine  CPLT  is  called  to  generate  CAT  'AMP 
angular  velocity  and  acceleration  versus  time 
angular  data  are  computed  in  a  similar  manner  for  ho 
minus  head  point  2  data  (indices  r*  and  6  in  arm  vs  '*: 

Parameter  >!  contains  the  number  of  sets  f 
and  acceleration  data  to  be  computed  for  one  vat  i ab 1 
relative  to  another  (array  IR)  .  For  exam;.  Lo,  if  lb 
IR ( 1 ) =2 ,  then  for  sot  M=l  the  hip  motion  re  1  1 1  i  vo  m 
computed  for  all  available  frames. 


If  M  <  0  and  I  PL  2,  ail  data  for  van 
adjusted  by  subtracting  the  initial  mi  *.*  is  •* 

X  f  T  ,  J )  -  X  (  T  ,  J  )  -  X  1  ,  J) 

Z  (I  ,  J)  =7,  (  I  ,  J)  -  Z  <  1  ,  .I ' 

where  all  :<  and  z  data  have  t'p'rjn.is  1  y  !•«•>•••;  •*  >• 

to  feet.  For  each  of  the  M  set  -  dm  i  d  :  *win  : 


,  '  .  i  ‘  l  , 

\  t  *  .  .»<  .  : ; .  . 
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to  be  p  i  l  t  :  •  .  •  : 
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X  array '  m  »....  •  :  r.  .  ■  : 
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The  angular  velocity  and  aoueioi  at;  on  :  n  . ...  r 
inch  scaling  are  set  an  by  cal  1  inn  suia  -or  .  li¬ 
the  data  and  sets  values  acccra  mg  ly  .  .'el 

printed  on  the  left  side  of  the.-  irarh  and  t he 
on  the  right  side.  Subroutines  i.i.MH  ana  SVMB« 
the  data  and  print  the  legend  on  the  g.aph. 

For  parametei  ll'-i,  -'ll,;’  -n.-nei  at  es  r 
or  X  array;  in  seconds  versus  1  ;  real  v< ;  1 ,  h.  i  •  y 
second  and  acceleration  ( d  j  m  d’s.  The  {.lire 
as  per  IP  =  r  above.  The  vol-vi  $  y  am:  ace.-ie:  a* 
using  the  same  ordinal  •  .  "h-  :  i. 


NP  -  number  of  points  used  in  least 
square  fit 

[1  -  first  point  used  in  composite 
plot 

12  -  last  point  used  in  composite 
p  1  o  t 

XX  -  array  or  :<  axis  displacement 
da  Lu 

Z 2  -  array  of  z  axis  displacement 
data 

ICAL  -  flag  array  which  identifies 
de rined  data 

LCAL(J)  =  0  -  J1"^  variable 
unde  f  l  ned 

rc.-U.  (J)  -  1  -  .7 '  :i  r  ruble 

IS  tie  f  II. I -d 

HEADL  -  array  containing  variable 
names  used  in  leuend 

TEST  -  test  identif ication  used 
in  legend 

IRX  -  flag  used  to  setup  composite 
plot  X  axis  scale 

DYlP  -  y  increment  per  inch  for 
linear  plots 

S  ub  routine  Le n g  til :  1  6 1 2 

Labeled  Common  Length :  24^ 

Blank  Common  Length :  7 0 6 6 

2.2.3  Subroutine  SM (X ,  Y,  YC ,  N ,  NP) 


Subroutine  SM  is  a  smoothing  routine  which  computes 
u  quadratic  least  square  fit  or  NP  dependent  variable  data  points 
(Y)  to  compute  each  smoothed  data  point  (YC) .  Since  NP  data  points 
ire  used  to  compute  each  smoothed  point,  M  data  points  are  lost 
at  the  beginning  and  end  of  array  YC ,  where 

M=  (NP-  1  )  ,/2  . 


3  0 


Me  thod 


The  first  (MM)  and  last  (NN)  array  indices  for  which  YC(I) 
are  computed  are  determined  as  follows: 

MM=M  +■  1 

NN=N  -  M 


where  M  is  defined  above  and  N  is  the  number  of  original  displace¬ 
ment  points  in  array  Y.  Subroutine  QLSQ  is  called  to  compute  the 
C^,  C 2»  and  coefficients  for  each  of  the  I  smoothed  points  which 
are  then  computed  as  follows: 

YC(I)=C1  *  X(I)2  +  C2  *X(I)  +  C , . 


A  flow  chart  for  this  routine  is  shown  in  Figure  8. 


Error  Diagnostics:  NONE 

Subroutines  Required:  QLSQ 

Argument  List:  X  =  array  of  independent  variable 

Y  =  array  of  dependent  variable 

YC  =  array  of  smoothed  dependent 
variable  data 


N  =  number  of  original  displace¬ 
ment  versus  time  data  points 

NP  =  number  of  points  used  to 

compute  each  smoothed  data 
point 

Subroutine  Length:  75g 


2.2.4  Subroutine  DERI VI  (X,  Y ,  VP,  N ,  NP ,  ID) 

Subroutine  DERIV1  computes  the  derivative  (YP)  of  the 
dependent  variable  Y.  A  quadratic  least  square  fit  of  NP  points 
is  used  to  compute  each  derivative  point;  thus  K  points  are  lost 
at  the  beginning  and  end  of  arr.y  UP: 
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K  = 

M  + 

M 

*  ID, 

M  = 

(NP 

- 

l)/2. 

ID 

=  1 

for 

first 

derivative,  and 

ID 

=  2 

for 

second 

derivative 

;  t.  fndt  for  ID  =  1,  array  Y  contains  displacement  data  which 
Law.  already  been  smoothed  using  a  quadratic  least  square  fit  over 
:.T  points;  thus ,  M  points  have  already  been  lost  from  the  original 
;ia; iacoment  data.  For  ID  =  2,  array  Y  contains  first  derivative 
.velocity)  data  which  starts  at  array  location  Y(2*M  +  1). 

Method 

The  first  (MM)  and  last  (NN)  array  indices  for  which  YP(I) 
...re  .:orr.ru ted  are  determined  as  follows: 

MM  =  K  +  1 

NN  =  N  -  K 

whore  K  and  M  are  defined  above  and  N  is  the  number  of  original 
iiaplacement  data  points.  Subroutine  QLSQ  is  called  to  compute 
the  C  ^ ,  C  ^ /  and  coefficients  for  each  of  the  I  derivative 
points.  The  derivative  YP(I)  is  then  computed  as  follows: 


YP ( I )  =  2*  C  *X(I)  +  C2. 

A  flow  chart  for  this  routine  is  shown  in  Figure  9. 

Error  Diagnostics:  NONE 

Subroutine  Required:  QLSQ 

Argument  List:  X  =  array  of  independent  variables 

Y  =  array  of  dependent  variables 
(displacement  or  velocity) 

YP  =  array  of  derivative  data 

N  =  number  of  original  displace¬ 
ment  versus  time  data  points 

NT  -  number  of  points  used  to 

compute  each  derivative  point 


t 


♦I 


compute  indices  of 
first  iNi)  and  last 
iNC!  points  for  Irn 
derivative 


.or.oute  denvctiv 


:? ( I i  -  2*0, *Xi I) 


Return 


Figure  9.  DERIV1  Flow  Chart 


where  summations  of  XP  and  Y  are  computed  for  index  I  equal  Nl 

N2.  Determinants  are  used  to  solve  the  above  system  of  equate 

for  the  coefficients  A,,  A_ ,  and  A  .  The  (’  '  j-.u  •,  :  • 

12  ;>  12  * 

are  computed  from  A^,  ,  ana  A^  as  follows: 

crAi 


C2 

—  A  -  a  *  i 

A2 

'1 

*  c-p 

~  A,  +  A. 

* 

FF*"  -  A_  * 

3 

3  1 

2 

A  flow  chart  for  this  routine  is  shown  in  Fiaure  10. 
Error  Diagnostics:  NONE 

Subroutines  Required:  NONE 


Argument  List: 


X=array  of  independent  vir:N 

Y=array  of  dependent  var lab  1 

Nl=index  of  first  point  used 
in  fit 

N2=index  of  last  point  used 
in  fit 

Oarray  containing  quadratic 
coefficients . 


Subroutine  Lenath: 


2.2.6  Subroutine  ROTATE (N , J1 , IPR) 

Subroutine  ROTATE  translates,  rotates,  and  calibrates 
on-board  camera  data  stored  in  arrays  x  and  z.  All  data  are  ‘ 
lated  to  a  coordinate  system  through  the  sled  range  reference 
(first  x,  z  point  for  each  time)  .  The  axis  is  then  rotated  sc. 
angle  between  the  sled  range  reference  and  the  sled  reference 
(second  x,  z  point  for  each  time)  is  the  same  for  all  time  s *  a 
i.e.,  all  angles  between  the  sled  range  reference  and  sled  :•  : 
ence  are  the  same  as  the  anale  at  time  zero.  The  data  j-  ‘ 


translated  back  to  the  initial  coordinate  system  (at 


Method 


For  the  first  time  station,  the  range  x  and  z  data  are 
subtracted  from  the  sled  reference  x  and  z: 

Xl  =  X (1,2)  -  X ( 1 , 1 } 

Zl=  Z ( 1 , 2 )  -  Z ( 1, 1)  - 

These  differences  are  used  to  compute  the  reference  angle  '•  „ : 

H 

6  =arctan  (Zl/Xl) 

R 

If  0  is  less  than  zero,  then 
R 

eR=6R  +  360. 

This  is  the  reference  angle  between  the  range  and  sled  reference 

points.  For  all  other  time  stations,  the  axis  through  the  range 

reference  is  rotated  to  make  the  angle  between  the  range  and  the 

sled  reference  points  the  same  as  9  .  Note  that  for  this  first 

K 

time  station  none  of  the  x  and  z  array  data  are  rotated  or  trans¬ 
lated  . 

For  time  stations  1=2  to  N,  the  following  are  computed: 

(a)  All  data  (J=2  to  8)  are  translated  to  a  coordinate 
system  through  the  range  reference  as  follows: 

X ( I , J) =X ( I , J)  -  X ( I , 1 ) 

Z(I,J)=Z(I,J)  -  Z(I,1) 

(b)  Angle  (K  is  computed  from  the  sled  reference  dif¬ 
ference  : 

■j  .=arctan  [  Z  ( 1 , 2 ) /X  ( 1 , 2 )  ] 

If  0 .  is  less  than  zero,  then 

l 

+  360. 

i  i 


3  8 


f-  ^ 

(c)  Angle  v  is  the  an  rle  by  wh  1  eh  the  I  "  i/  irsts  ho v 
been  rotated  with  res: 'oct  t~o  the  initial  : 

1  R 

(d)  The  inverse  rotation  (or  rotation  by  -  is  or.  r 
puted  as  follows  for  parameters  J~2  to  3: 

X ( I , J) -X ( I , J)  *  cos-  +  Z(J,J)  *  sin- 
Z  (I  ,  J)  =  -X  ( I ,  J )  *  sin  +  7.(1,.!)  *  cos- 

The  data  points  are  then  translated  back  to  the 
initial  range  coordinate  system  (at  time  zero,1  : 

X ( I , J ) =  X  ( I  ,  T )  a  X  ( 1,  1) 

Z  (I , J) =Z  (I  ,  J)  +  Z (  1  ,  1 ' 

s 

All  x  and  z  data  for  parameters  .T-Z  to  R  are  con 
verted  from  counts  to  feet  : 

X(I,J)=X(I,J)  *  CAL(J) 

Z(I,J)=Z(I,J)  *  CAL(J) 

This  subroutine  also  prints  a  listinc  of  frame  number 
versus  parameter  x,  z  data  in  counts  when  IPR  is  less  than  one 

A  flow  chart  for  this  routine  is  shown  in  Fi cure  11. 


le 


(f) 


Error  Diagnostics: 

NONE 

Subroutines  Required: 

NONE 

Argument  List: 

N 

number  o 
time  data 

•i  is: - 1  !  • 

po  nts 

J1  - 

index  of  f 
sled  refer 
J 1  -  3  ;  for 

l  rs  t  pa  ran-.  •  t  •  • 
once  .  F-  T  IT 

i type  - i , 

T  PR  = 

pr  l  n  t  con  t 

:  o  i  pa  r  ar- 

Blank  COMMON 

Variables  (used  by 
this  subroutine) : 

rrR  - 

array  rent 

a  ;  n  ;  :  !  n  v  •' 

X 

a  r  r  a  >  •>  f  x 

a  i  si  !  i ■  "c r  t  ■ t 

r» 


a  r :  iv 


deviation  about  the  mean  for  x  and  z  axis  sled  . 


Method 

Compute  the  mean  of  the  and  z  axis  dot  . 

1  N 

AVX  =  -  I  X (I ) 

1  =  1 

1  N 

avz  =  ±  :  z (i)  . 

N  i=x 

Then  compute  the  standard  deviation  of  the  data  abut 
x  and  z  axis  value: 


SMX  = 

y  N 

1  =  1 

[X(I) -AVX| 2 

N-l 

SMZ  = 

y  N 

- 

f  Z ( I ) -AVZ ! - 

1  =  1 

N’-l 


Finally,  print  the  moan  and  standard  devi  at  ion  daft  or.  the  standar 
output  file. 

A  !  i  <.»w  chat  t  lot  ‘  h  •  s  » •  >  u  t  1  n*  i  •'  <:  i  1?. 


MONK 

N  =  number  of  x  and  7  a :  s  data 
po i n  t  s 

\  -  ar.nv  of  y  a y  i r  :a  ta  flints 
Z  -  a  r  r a y  o  f  7  a x  i  s  <  i a  t a  p o  ir.ts 

,l63 

2.2.8  Subroutine  MEAN  2  (Ml,  N_2,  DI,  DC_,  XD ,  ZD,  SMX ,  SMX2 , 
SMZ_,__SMZ2)  '  . . ' 

Subroutine  MEAN 2  roinputPs  the  mean  and  standard  deviation 
of  unsmoothed  minus  smoothed  x  and  z  axis  data. 

M_ethod 

The  sums  and  sums  of  squares  of  the  unsmoothed  minus 
smoothed  data  are  computed  as  follows: 

N  2 

SMX  -  2  Did)  -  XD  ( 1 ) 

I  =N  1 

N2 

d  M X  2  =  [nr ( T )  -  XD ( Til 

I  -N 1. 

N  2 

3  MX  -  .  DC  (  T )  -  ZD(D 

I  =N  1 

mm 7.2  -  [  nc  (  i  i  -  z.m  i  .  |  • 


K r  r qj  _Di a^jn o_s  t i c s  : 

S ubrouti nes  Required  : 
Ar quite nt  List: 


Subroutine _ Length  : 


:e~  used  above  are  defined  in  the  argument  list  below. 
,3MX  and  SMZ)  and  standard  deviations  (SMX2  and  SMZ2  j 
■.  ed  from  these  sums  and  sums  of  squares: 


-::i -ti . 

::iow  chare  for  this  routine  is  shown  in  Fiuuro  i  ’  . 


index  of  the  first  data 
point  used  in  the  summati 

index  of  the  last  data  po 
used  in  the  summations 

array  of  unsmoothed  x 
data  points 

array  of  unsmoothed  2  ax: 

data  points 

array  of  smoothed  x  axis 
data  points 

array  of  smoothed  2  axis- 
data  points 

me a n  x  a x is  d a t a 

standard  deviation  <  •  f  1 
data 

2  axis  data 


' r r 0 r  D 1 a g no s t ics: 

NONE 

ubroutmes  Required : 

NONE 

.rgument  List: 

N1 

M2 

DI 

DC 

XD 

ZD 

.-'MX 

SMX2  - 


SMZ 


mean 


SMZ2  -  standard  deviut  .  a.  z  .1 i 
data 

duu r ou ti  no  jhe n u  tn :  7 6  - 

. .  J  .  :*  i'ata  I'n.-par  jt  ion  for  input  to  HI  I'M) 

LJ I  f;Jd  i  .  i  *.  .  i  j  1 1  i';  f  t..t  t  a  !.  v)  r  i  ij  «  [•'  ■  !.<  •(  :*:.s  ;  f  .o  :  •  ••::*-• 

;  ••  *  i  j  i  t.  l  z  1 1*1  j  .  'i  hc  eai  t 1 iuj  r ; : ric ti  i  o j :  y  i  « >v  i  ■  it,js  r  i  1  !  r .i  l-  — 

r  :  s  and  l'CS  coordinates  to  ?,  lane  of  y.ioticr.  rur  ni  inai'...-s 

•oi.  version  factor  s  .  The  dioi  tizing  function  provides  the  fram.e- 


by- : ran 

.e  "  read  l  ng  "  o t  t he 

projected  film. 

frame  coord 

i nates.  The 

t  r  e  r  e  r 

ices ,  or.  "standards, 

.  "  required  to 

process  the 

d  a  t.  a  .i  r  e  :  1 1  m 

■  .  r* 

•reroute  pul  se.s  and 

surveyed  f  iuuc 

i  1 1 s  in  two 

dunes  normal 

•  -  •;  t  i  >.m  1  i.<;  ->  :  the  camera  . 

Tunin'.'  of  tile  riiui  frames  was  accom;.  i  shoe  uy  ..ui  jujati 
the  average  film  speed  over  a  span  or  approximately  150  frames 

v  1)0  msec :  . 

The  first  frame  in  which  the  stroboscopic  flash  was  ob¬ 
served  was  defined  as  t  —  0 .  The  strobe,  initiated  by  a  time 
synchronizing  pulse  which  was  also  recorded  on  the  magnetic  tape 
:  e  ••>!  iin;;>,  act  ...j  1  !  y  -ttves  t  i  ndi-mt  ion  wi  thin  2.0  milliseconds 
i,  MtJ'.j  .«t.  the  nominal  fi  in.  speed  ~t  500  fran.es  per  second  with 
a  i-T.."  shutter .  d  1  nee  the  flash  is  not  observed  in  film  frame 
-000  1  ana  is  observed  it.  film  frame  0000,  it  is  apparent  that  it 
was  initiated  between  the  closing  of  the  shutter  on  film  frame 
-0001  and  the  closing  of  the  shutter  on  film  frame  0000.  During 
:v  .st  tests,  the  intensity  of  the  first  observed  flash  would  in- 
i  i cute  that  it  was  initiated  between  the  closina  of  the  shutter 
on  frame  -000  1  and  the  open  me  of  trie  shutter  on  frame  000.  If 
tills  is  the  case ,  the  *  indicut  ion  could  be  considered  to  be 

1  J 

i  Mil  lit;  to  -  u  ,  *i.2  milliseconds, 


>h0  '  -  140  ' 
(00° 


msec 


1 


f 


* 


5‘. 


’  he  u-uti.te  :  road  inus  ot  the  aiii.hr  j.<  *  r  : ■  :.•<  mts  :;r.  the  sub  ■  ec 

i  =  •  .:';i :  t  i :  it  the  foil;  tw  z  r.< ;  bo  r.aowr. . 

'  j  .'he  distance,  r.o r mu  1  to  the  tlane  t  symmetry  of  th 

sub  ai.'i.  ,  ;  ;  o;  that  plane*  to  each  '■  two  pianos,  parallel  tc  the 

;  ■  i  ■  ■  ■  ■  ’ :c .» ■  t  ;  y  ,  i ; .  '.v:. ;  on  :u  *  l  o  :  ei  .  no  liuucials  w  *  ■  re  r;a  r-.od  . 

ib'  .ho  d  i  st  ji.ut;; ,  normal  to  t  he  plane  of  symmetry  of 
trie  am,  ;ect,  :  r. >m  th.at  plane  to  each  of  the  an  thropor.e trio  points 
be  r  rac -e.  a  . 

; ’)  That  the  optical  axis  ot  the  primary  camera  was 
rm.ai  to  the  plane  of  symmetry  of  the  subject. 

el  i  The  distances ,  between  centers ,  or  the  re  re  :*■•..  o 
:  :  .•••;>;  :a  Is  mounted  in  each  o:  t  he.  t  <.•  r  ene>.  ;  !  >..•  o  . 

The  cuoi  a  mates  o !.  tin.-  a  teience  r  i  due  ;  »  ’  3  .1  tin.  r  o  *  he 
ana  the  nearer  reference  planes  were  •  j  :: ticeu  :  .  e  times.  The 
readings  of  these  coordinates  we  re  ’..hen  o.  e:\tc«*  :  am  too*  .11  ;  i  t  a  1 
distance  between  the  a ve raced  coordinates  or  each  pair  was  calcu¬ 
lated.  Dividing  each  of  these  dijir.al  distances  by  the  corre¬ 
spond  i  mi  measured  dimension  between  fi due: a  is  yielded  conversion 
ronstunts,  m  terms  of  "counts  per  foot",  in  tw.  ;  lanes  normal  to 


e  1 1  <J 

rJ  £-  l  C  J  J.  X  J.  3  .  i  K  i  V  1 1 

I- ;  * ; 

: .  •  t  > 

;  re.  i  r  \u 

' ;  ,<  »  *  ■  r, x  '  • : 

•  r  j  i’ t*  .1  n  r. 

*u.d 

1 1  ci  v  i  ; ; <  j  ip.u  -  i  0 '  *  r  tj  t..  r i  t.‘ 

a... 

■  t  .  i : : 

;  '  f  t  ,  J  .  j  • 

.  j  c 

s  1 

which,  the  tidueials  lay,  the  distance  ab.-i.u  ■  :a.  rural  axis  f roc 
the  focal  point  of  the  lens  to  each  of  these  piar.es  and  the  •  lane 
of  symmetry  could  then  be  calculated,  idee  r'-quie  4. 

Prior  to  each  test  run  the  breadth  of  ‘he  subject  was 
measured  at  each  track inq  fiducial  location  w  i  th  air  an  th  r  or  one  to  r 
Assuminq  that  each  subiect  was  symmetric  1  i  ,  tne  ii stance  from  the 
plane  of  symmetry  to  each  *  rack  in.:  :  1  :eo  1  vr  -s  o  no¬ 
ne  i  t  the  measured  breadth  of  sub  ••  ••  c  •■..  )  ..-at  ;  . 

.'onvorsior.  c  instants  for  each  pi. on.  ;  a.i,  !•  .  *  *  h<  .c,-  :  sym- 

retry,  chus  no :  me  1  t  t  he  •;  *  :  a  1.  -  :  r;  wh :  ch  *.  ‘  a  '-ur  ■  :  i-ac  i 


were  added  to  the  file.  This  file  was  then  copied  on  the  card 
punch  and  printer  as  a  time  saving  measure  in  case  the  disk  file 
should  be  accidentally  purged. 

At  this  point  the  program  HIFPD  could  have  been  attached 
and  executed;  however,  the  normal  procedure  was  to  obtain  the  card 
files  and  submit  them  in  the  batch  mode  on  an  overnight  schedule. 
This  permitted  the  connect  time  to  be  used  for  read-in  and  editing 
of  additional  data  files. 

Descriptions  of  specific  procedures  are  presented  in  later 
sections,  and  the  composition  of  a  deck  assembled  for  a  typical 
computer  run  is  illustrated  in  Figure  14. 

2.2.10  Description  of  Program  HIFPD  Input  Data  and  Parameter 

Codes 


I.  Program  Setup  Cards 

A)  The  first  card  in  the  setup  deck  must  contain  the 
date  in  columns  1  to  10;  for  example,  12  FEB  74  or  FEB  11,  74 
(only  one  date  card  per  job) . 

B)  The  following  four  or  five  cards  are  required  for 
each  test  in  the  computer  job: 

Card  Number  1 

Column  Format  Data  Description 

1-80  8A10  80  columns  of  alphanumeric  information  which  will 

be  printed  at  the  top  of  each  page. 


Card  Number  2 


1-  5  A5  Test  number 


6  II 

7  1 1 


IRX — flag  controlling  polarity  of  x-axis  data  - 

blank  or  0 - no  change 

1 - change  sign  of  x-axis  data 

IPR--flag  controlling  input  data  and  difference 

printout  -  blank  or  0 - print  data 

1 - omit  printout 
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Card  Number  2  (Continued) 

Column  Format  Data  Description 

59-60  12  NP--number  of  data  points  used  in  the  quadratic 

fit.  NP  must  be  an  odd  number  3;  default 
is  NP=11. 

61-65  F5.0  DYLP--velocity  and  acceleration  linear  plot  sea 

increment  per  inch  (see  parameter  IPL) . 
Default  is  2.5,  5,  10,  20,  or  30  dependin 
on  the  range  of  the  data. 


Card  Number  2A  —  required  only  when  IADJ  >  0. 

1-10  F10.0  Time  calibration--number  of  frames  per  second. 

May  be  left  blank  if  film  speed  is  500  frames 
per  second. 

11-20  F10.0  SLED  calibration  in  counts  per  foot 

21-30  F10.0  HIP  calibration  in  counts  per  foot* 

31-40  F10.0  KNEE  calibration  in  counts  per  foot* 

41-50  F10.0  SHOULDER  calibration  in  counts  per  foot* 

51-60  F10.0  ELBOW  calibration  in  counts  per  foot* 

61-70  F10.0  HEAD  POINT  1  calibration  in  counts  per  foot 

71-80  F10.0  HEAD  POINT  2  calibration  in  counts  per  foot 

NOTE:  The  decimal  must  be  punched  in  the  above  data  fields 

unless  the  data  are  integer  and  are  right  justified. 


Card  Number  4 

1  11  9  in  column  1  to  indicate  the  end  of  test  input 

NOTE:  Cards  1,  2,  and  3  are  placed  in  front  of  the  test  deck 

and  card  4  is  placed  after  the  last  frame  in  the  test. 


C)  The  last  card  in  the  input  deck  (before  the  end  of 
job  card)  contains  the  word  "END"  in  columns  1  to  3 . 
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.  Data  LK:  script  ion 

”■  14  Frame  number 

»  -  L  J  17  reading  in  counts  for  Range  data 

1  '.-19  IT  z  reading  in  counts  for  Range  data 

10-20  17  x  for  Sled 

2  —  3  J  1"  z  for  Sled 

34-40  17  x  for  Hip 

41-47  17  z  for  Hip 

;•  g!  1 7  x  for  Knee 

j I  17  z  for  Knee 

.  r  •  \  robot 

1-3  14  Frame  number 

f  -  1  1  -  x  read  in:  counts  tor  ?u  :  u  3  :  d 

.  •  !  3"  z  read  Lr.g  ir.  ••.>ur,t  s  ■  .  i  .  'ton  1  r  : 

.  ».  1  x  for  121  bow 

1  '  -  L  7  r.  for  F  1  bow 


Card  Number  2  (Continued) 

Column  Format  Data  Description 


41-47 

17 

z 

for 

Head 

Point 

1 

48-54 

17 

X 

for 

Head. 

Po  mt 

o 

x. 

55-61 

17 

z 

for 

Head 

Point 

2 

IV.  Card  Formats  for  the  Test  Input  Data  Cards  for  I  TYPE - 1 
Card  dumber  I 


2-  5 

14 

Frame 

numbe  r 

6-12 

17 

x  reading 

in  counts 

for 

Ranee 

data 

13-19 

17 

z  reading 

in  counts 

for 

Range 

da  ta 

20-26 

17 

.<  for 

Sled 

27-33 

17 

-V  X  r- 

S  led 

34-40 

X  / 

v  t  .v  r 

in ‘ad 

Po  inf. 

1 

41-47 

17 

■■  f  -.r 

Hea>  i 

Point 

1 

48-54 

a  — 
i.  / 

r  <  t: 

Head 

Pm  :  nr 

2 

55-61 

17 

■  for 

Head 

Point 

2 

NOTE :  For  ITYPE=1,  only  1  data  card  is  read  for  each  frame. 


V .  Ge ne r a  L  Commen t s 

A/  If  there  are  any  errors  in  frame  or  card  identi¬ 
fication  numbers,  error  statements  will  be  printed  at  the  top  of 
the  first  output  pace  for  the  test  and  all  computations  after  the 
listing  of  the  input  data  will  be  deleted. 

3)  A  maximum  of  J.'O  frames  (MAXN)  will  be  read  for 
each  test.  If  the  test  input  deck  contains  more  than  300  frames, 
only  the  first  300  will  be  processed .  This  could  be  chanced  hv 
changing  MAXN  and  the  array  dimensions  in  the  program. 

C)  If  the  calibration  factor  for  a  variable  is  miss¬ 

ing  flag  ICAL(J)  is  set  equal  to  zero  and  that  variable  will  •  o 
deleted  from  the  analysis. 


r.  4 


Each  of  the  volunteer  subjects  was  exposed  to  each  impact 
acco  ’  o  r..o  i on  level  three  times;  once  with  the  ri'ui  harness,  u:.  n 
with  an  operational  harness,  and  once  with  a  nylon  harness.  The 
duirnny  tests  which  wore  evaluated  consisted  of  three  exposures 
-b  d-  impacts  and  three  exposures  to  -10  G  imcacts .  The  dumtr.v 
was  re  s  t  a  ;  nod  by  the  operational  harness  during  all  six  expos croc 

ihe  impact  environments  wore  developed  or;  the  her  i  count  a  1 
Impulse  acre  Lera  tor  Facility  located  in  Bur  Idir.y  824  it  V.right- 
Patterr  n  •  ;  i  Force  Base,  Ohio.  The  tests  were  conducted  by  the 
Aerie,;..  .h-dical  Research  laboratory ,  Bionecrei;:  md  P  ret  eo  t  _or. 
branch  ; e.-:Rl,/i3BP )  (known  at  the  time  as  Impact  Brin,  n,  AMRL.PBT. 

1  ran;  •  ' ..  period  Geptember  1971  -  June  19":  . 

2  .  ;  .  i  Trmu.  remonts 

ur  thro pome  t  r  ic  points  specif;  eh  to  be  tracked  were 
the  he.'  -.,  t::  .•  saouldor ,  the  elbow,  the  hit,  ire  ;  hi  kn .  A  secern 
point  on  the  head  was  also  specified  tor  purpo'P.  of  tracking 

its  annular  displacement  relative  to  the  first. 

In  accordance  with  Recommenced  P  i.tico  .Ai  J 1  .8 ,  hAE 
Handbook ,  19  7  5,  tiie  following  points  were  eci :  :  ed  to  ;,e  marked 
Wl  til  t  i  due  lalS  . 

dead  (Point  1)  The  Traqcon . 

Hoad  (Point.  1.)  A  point  approximate  1\  three  •  3,!  inches 
(Alternate)  above  the  traqcon. 

.ina;  (Point  2)  Outside  corner  of  9  Transducer  Accel¬ 
erometer  Pack  ( 9 TAP )  common  to  all  three 
leys  ( Figure  1 5 )  .- 

Bnou!  ier  The  most  lateral  :  imiohion  of  ♦  !:•• 

acromion  pa  cross  •  <  *  the  scape] . 

Elbow  The  most  Lateral  projection  a;  t  ho 

h  ume r  a  L  condyle. 

The  most  prominent  ;..r  o  ■«<■-*  j  <  t.  ,  f  *  hr- 
t  y  L  ion  . 

1  Pr  i.o :  *■'  lost  917  2;  Ait.,  197b)  a  tn.ir  E  w.,.; 


I 


W  JS  l !  t  '  l  i  \  L  L:  1  -  I  a  I 


i  i ;  azirnui'.a  o  t.  I-*/  w».* 


I  u  :  .  ^  i  ;  *  c  u 


o::,<  .  is,  wnre  mo;:' .  * 


.s  roc’.i  -•  V'0 1  n ti  -i  *r  !.  \  <.  r  >  r.  v  <“  2  .  i ;  ,j  i 


r- - ;U:  1 ;  • 


15.4,  23.8 j  . 


1  -  Zl  C  i  ; 


n:a  i  function  cf  the  primary  data  eat  e  r  :  r.  tent 


v  T.  -  ■  .  o ;  , 


1  1  1 1.  n 


i •: '  :-;3  ] 


.rn;  is  •  e. 


.  ■  .to:.:  .t :  -r  of  onthrcpcmetr i  e  r.easurt  •:»:.•• 
e  ••  h  sub  "ort  . 

'  :  tc.-  1  fiducial  ar  el  icat  ~  on  ,  c  mu:  or  t  :  , 


' ire  ■  recoruina  of  the  track! no  .loo-:  ...  : 

•  t.  and  response  events  . 

iTs;;»-MPet rv  of  each  subject  was  measured  u rid  doc 


nducial  application,  reasui  en.ei  t  arm  no  oi.ncr,  t. 
•  i  slier  prior  to  each  rest  run  :  •  :  1  CHI  repro- 

:c  .  Lnf:  fiducial  s  were  located  a.;  :  •• .  •.  -ws  . 


.1  oil  r  re. 1 1 ::  on ! 


:  1  o !  ; 


roi.-.i  n  :  r  cos 


! ::: ..  *■  i  I  ■  *c  p.d  v  1  e  ,  s  t  y  1  i  :: 


In.'  it  ,  ;  ,  : 


J 


TABLE  1 


DEFINITIONS  OF  PRETEST  DATA  ITEMS 


I tem  Definitions 

RS  Restraint  Harness  Material 

GN  Nominal  Impact  Accelerati  or.  i-G.J 
RN  Test  Number 

DT  Date  of  Test  (Year,  Month,  Day) 

1  Weight  (Kg) 

2  Height  of  head  band  fiducial  above  sled  deck 

3  Height  of  shoulder  above  sled  deck 

4  Height  of  iliac  crest  above  sled  deck 

5  Trageon  to  9TAP  origin 

6  Trageon  to  headband  fiducial  distance 

7  Shoulder  to  elbow  distance 

8  Elbow  to  wrist  distance 

9  Hip  to  iliac  crest  distance 

10  Hip  to  knee  distance 

11  Mid-thigh  to  knee  distance 

12  Knee  to  ankle  distance 

13  Breadth  at  trageons 

14  Breadth  at  shoulders 

15  Breadth  at  elbows 

16  Breadth  at  hips 

17  Breadth  at  knees 

18  Breadth  at  ankles 

19  Mid-shoulder  height.  Distance  along  seat  back  plane  from 
line  of  intercept  of  seat  pan  plane  and  seat  back  plane 

to  a  line  normal  to  the  seat  back  and  tannent  to  the  upper 
surface  of  the  shoulder  at  the  centerline  of  the  loft 
shoulder  strap. 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  A22 
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SUMMARY  OF  PRETEST  DATA, 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  C’ 2 


2.3.4 


15-  'Ui'J' 


Photogrammetric  Calibration 

Calibration  of  conversion  constants  was  based  upon  the 
method  illustrated  in  Figure  4  .  The  fiducials  on  the  lexan  pane 
(y=  -32.062)  and  the  side  of  the  seat  pan  (y=  -8.0)  were  digitize 
and  the  average  conversion  factors  for  those  planes  were  calcu¬ 
lated  to  be  2787.13  counts  per  foot  (cpf)  and  1650.74  cpf  respec¬ 
tively  . 


Referring  to  Figure  4  the  following  values  were  ass 


no  ■ 


r  =  r..  =  1  foot 
o  02 


r  =  1650.74  counts 

P 


r  -  =  2787.13  counts 

p2 


s  -  s._  =  24.062  inches, 
o  0  2 


The  distance,  r,  from  the  axis  at  which  the  ray  from 
pQ  to  the  focal  point  penetrated  the  object  2  plane  was  calculate 
to  be  : 


_L_  =  _PEL 

r02  rp2 


r=l 

r  = 


,  .  ,1650.74  counts, 

foot  X  ..va — - — ) 

2787.13  counts 

.592  foot  =  7.107  inches. 


The  apparent  distance  from  the  focal  point  to  the  plane 
y=  -8.0  inches  was  calculated  to  be: 


s 

o 


r 


o 


•02 


-r 


s 

o 


s 

o 


) 


24.062  inches 


i; 


4.893 


inches 

inches 


s  =  59.01  inches . 
o 


73 


plane 


Ca Jen  Inti  on  >f  a  conversion  constant,  f  ,  Cor  any 
y-n,  was  then  accomplished  using 


n 


c _ 

s  +  (  8  -  v  ! 
o 


:<  16r0.74  counts  oer  foot 


when  y-n-one  ha 1 t  the  measured  breadth  cf  the  subject  between  an¬ 
thropometric  points  on  the  left  and  right  side. 

1 .  ' .  j  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digit i zinc ,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
i TTY;  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division's  Digital  Computa¬ 
tion  Facility  lASD/AD!  in  Building  676,  Area  B,  Wright-Pat ter son 
Air  Force  Base. 

2 . 3  .  5  .  1  Editing 

The  primary  camera  film  was  viewed  on  a  light 
table  and  the  frames  and  .01  second  timing  pulses  were  counted 
throughout  the  event.  The  frame  exposure  rate  (frames  per  second) 
was  scanned  for  consistency  and  the  average  frame  rate  was  calcu¬ 
lated.  During  each  run  processed  the  frame  rate  r  constant, 

+  1  frame  per  second,  during  the  100  mill  isec  os  ■'■lowing  initia¬ 
tion.  During  the'  procram  film  speeds  ranee <4  from  462  to  49s 
frames  second. 

The  film  was  mounted  on  the  PVR  and.  was  trans¬ 
ported  forward  m  the  r me  mode  until  the  operator  observed  that 
the  sub  ;•■■■♦  no t  i  'r.  hid  apparently  terminated.  The  number  c  t  h« • 

:  r  »:*■••  was  is  termination  t  i  me . 


f 


The  identification  card  contained  alphanumeric 
information  in  cards  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RSD 

STUDY,  SUBJECT--,  RUN - ,  YYMMDD ,  material.  The  next  to  last 

'.try  is  the  date  on  which  the  test  was  conducted  in  terms  of  year, 
month,  and  day  of  month. 

The  control  card  contained  the  test  number  and 
pro -3 ram  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  in  Paragraph  2.2.10. 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
to  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of  co¬ 
ordinates  on  the  second  line  read  from  each  frame.  The  format 
for  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/AD  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

.1  the  tracked  points  were  converted  to  2  dimensional  seat  coordi¬ 
nate  time  histories  by  program  HIFPD . 

The  PCS  coordinate  readings  of  the  two  reference 
fiuucials  from  the  first  film  frame  were  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PCS  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film  frame  trans¬ 
lated  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  minimize  errors 
due  to  vibration  of  the  camera  during  the  test  event. 


The 


.iisijlaoe:::!  r: r  :  ::  ■ 

second  reference-  point  was  taiculut.  d  ;  ;i  . 
nates  by  the  cor. vers  ion  constant  car  :. 
from  the  optical  axis  of  each  cf  the  t  n  ~ke  : 
by  dividin;  its  PCS  cooriir.ates  by  its  ... 
values  or  x  ana  displacements  ircn  the  ;  t  : 
fere  nee  point,  was  then  subtracted  :  •••  tn< 

of  each  c  f  the  tracked  poi  nr  s  veihar.  :  and  . 

point  1 1  : : ...  t!'.e  reiei'er.'e  :..  .  •  :  .  • 

calculate.:  cor  re: ::  at.  v  system  ‘..a-..:  nee-:.  rr  c..-..  :■ 
of  the  aft  seat  rererer.ee  fiduc.nl. 

From  the  time  :. :  c  r. ,  r  i  :: 
positions,  HIFPD  computed  total  vel  .  c_  c.  .  . 
histories  of  each  point,  fitting  a  n-'-vin  : 
points  during  each  differentiation,  and  the  an  - 
acceleration  time  histories  of  the  9 TAP  r.c-.rt  - 
and  of  the  shoulder  about  the  hip  point;  ana  in 
quadratic  arc  to  eleven  points  during  each  a i 

The  resulting  time  histories 
tables  and  written  on  magnetic  tape  for  piottir. 

Plotting :  After  examination 

results  of  the  computation  revealed  no  apparent 
plot  request  was  submitted  to  AS D/AD .  The  data 
magnetic  tape  by  HIFPD  were  read  and  piettcu  f 
COMP  Plotter. 

2.3.6  Results  and  Accuracy 

The  results  of  this  effort  were  deiive 
tones  of  displacement,  velocity  and  ucce  lor "i  t  .i 
graphic  forms. 

Analysis  of  the  propaqa;  i  u.  of  err  : 
points  resulted  in  a  maximum  estimate/:  ■  ■  rr  : 
points  except  the  elbow.  “  Pur  mo  all  t 
strated  lateral  motion  trwari  t he-  ;■  I.  i : . ■  ■  :  cym 

^Graf,  P.A.  i:ii:  ti.T.  M«  htrun  .  A".:  ;  :  • 

Data,  AMRL-TR-7  9-76,  April,  !  '1  -■  0  ,  A*.- : 

Laboratory ,  w  r  i  :ht-l  it:  A::  F  :  .-c 


extremities  extended  forward  from  the  seat.  These  lateral  excur¬ 
sions  of  the  elbows  caused  the  breadth  across  the  elbows  to  a  r;  nr  cue 
but  not  become  less  than,  the  breau  :i  across  the  shoulders  at  maxi¬ 
mum  extension  of  the  arms.  The  mean  of  the  maximum  lateral  excur¬ 
sion  of  the  elbows  was  1.96  inches  from  a  mean  lateral  u  1  so  1  a  comer:  t 
or  10 . 84  inches  from  the  plane  of  symmetry  to  8.88  inches.  The 
estimated  error  in  solutions  to  elbow  coordinates  at  maximum,  ex¬ 
tension  of  the  arms  was  0.23  inches. 

From  a  study  conducted  by  H.  T.  Mohlman  of  the  I'D?. I,  the 
effects  of  smoothing  the  raw  solutions  and  the  first  and  second 
derivatives  may  be  summarized  as  fellows: 

(1)  Attenuation  of  peak  values  of  displacement,  velocity 
and  acceleration  is  a  function  of  frequency. 

(2)  The  eleven  point  quadratic  fit  yields  closer  correla¬ 
tion  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

(3)  The  attenuation  of  any  specific  displacement,  velocit 
or  acceleration  peak  would  be  reasonably  predictable 
if  the  frequency  of  the  peak  could  be  properly  inter¬ 
preted.  A  technique  used  to  evaluate  the  frequency 
response  characteristics  of  the  smoothing  filter  is 
described  in  a  later  section  (page  115)  and  is  de¬ 
tailed  in  the  above  reference  report. 

i4;  oscillations  in  velocity  and  acceleration  curves  are 
preuominatly  artifacts  induced  in  the  smoothing  fit. 

The  referenced  work  included  Investigation  of  sampling 
theory  and  application  of  the  quadratic  fits  to  digitized  photo¬ 
metric  lata  acquired  during  BPRD  tests  172  and  173. 

The  accuracy  of  the  digitizing  was  checked  using  the 
standard  deviation  about  the  mean  for  the  solution  of  the  rear 
seat  reference  point  with  respect  to  the  forward  reference  point. 
The  standard  deviations  were: 


*  at.ar  bird  •xvi.:',  >c  ir.  mo  sample,  0 . 0044  feet, 

: '■  com t.s  which  is  consider- 

*  1  coir.i  st.  a ’-.da:  :  do  via  r  ion  used  to  estimate 

The  effect  cf  smoothing  the  displacement  solutions  of  the 
•  cix.ts  are  indicated  in  Table  11,  which  presents  the  stan- 
laticns  of  the  difference  between  unsmoothed  and  smoothed 
ts  of  the  displacements  taken  from  a  representative  sample 
ests.  The  resultant  standard  deviations  in  the  sample 
o:”  .029  ir.ch  (test  i 4  C ,  hip  >  to  0.052  inch  (test  993, 
nt  1; ,  were  considerably  less  than  the  estimated  maximum 

0.12  inch. 

-50 1 _  INJURY  PROTECTION  COMPARISON 

Cadaver  subject:-  have  been  widely  used  to  assess  patterns 
r  i  tv  :i  jury  resulting  from  exposure  to  impact  environ- 

These  .-essments  have  been  used  as  the  basis  for  predict- 
;■  rob  ability  of  injury  to  living  beings  who  might  be  sub- 
v  similar  environments .  An  investigation  of  the  reliability 
apprmch  to  injury  protection  assessments  was  required  to 
: osul ts  between  livinc  subjects  ini  cadavers. 


TABLE  1  1 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT  IN  FEE' 
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The  Impact  Protection  Branch  of  the  Aerospace  Medical  Re¬ 
search  Laboratory  (AMRL/BBP)  conducted  a  test  program  to  compare 
the  responses  of  live  anesthetized  baboons  with  those  of  baboon 
cadavers.  The  intent  was  to  match  live  animals  with  cadavers  of 
similar  anthropometry  in  pairs  for  comparative  analysis.  The  data 
presented  herein  were  derived  from  cinematographic  recordings  of 
the  body  segment  responses  of  the  subjects  during  -50  simula¬ 
tions  conducted  on  the  AMRL/BBP  Horizontal  Impulse  Accelerator 
Facility  during  December  1977  and  the  AMRL/BBP  Hydraulic  Decelerator 
Facility  during  May  1978.  These  facilities  are  both  located  at 
AMRL/BBP,  Wright-Patter son  Air  Force  Base,  Ohio. 

Eighteen  tests  were  conducted  on  the  Horizontal  Impulse 
Accelerator  Facility.  Six  tests  were  conducted  using  a  scaled 
three-point  harness,  three  (1444  thru  1447)  involved  live  anes¬ 
thetized  subjects,  and  three  (1449  thru  1451)  involved  cadavers. 

A  camera  malfunction  during  test  1446  resulted  in  loss  of  photo 
data  from  that  test. 

Six  live  anesthetized  subjects  (tests  1453,  1454,  1456, 
1457,  1459  and  1460)  and  six  cadavers  (tests  1462,  1463,  1464, 

1466,  1467,  and  1468)  were  exposed  to  the  impact  environment 
while  restrained  with  a  military  type  harness.  Photometric  data 
from  these  twelve  tests  was  good  and  was  reduced. 

During  the  -50  Gx  simulations  conducted  on  the  Hydraulic 
Decelerator  Facility  in  May  1979,  six  live  anesthetized  subjects 
(tests  103,  104,  105,  106,  108,  and  109)  and  six  cadavers  (tests 
110,  111,  113,  114,  115,  and  116)  were  exposed  while  restrained 
with  a  military  type  harness.  Because  of  a  camera  malfunction 
during  test  110,  photometric  descriptions  of  the  responses  of 
only  five  cadavers  were  available  for  comparison. 

2.4.1  Requirements 

Primary  requirements  of  the  photometric  data  analysis 
effort  were  to  derive,  from  cinematographic  recordings,  time 
histories  of  coordinate  positions,  velocities,  and  accelerations 
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positive  to  the  right  of  the  seat  along  the  horizontal  line,  and 
the  z-axis  was  positive  upward  along  the  zenith  line. 

The  Photosonics  model  IB  cameras,  with  8mm  lenses,  were 
mounted  onboard  the  sled.  The  primary  data  camera  was  mounted 
with  its  focal  point  at  coordinates  (11.84,  53.12,  3.88)  inches. 

Its  optical  axis  was  normal  to  the  plane  of  symmetry  of  the  seat. 
The  front  view  camera  was  mounted  with  its  focal  point  at  coordi¬ 
nates  (63.65,  0.75,  4.0)  inches.  Its  optical  axis  was  parallel 
to  the  x  axis. 

Seat  reference  fiducials  were  applied  to  the  RH  side  of 
the  seat  frame  structure  at  coordinates  (2.28,  5.88,  -3.7)  inches 
and  (10.70,  5.88,  -4.29)  inches. 

2.4.3  Photogrammetric  Calibration 

Review  of  films  of  the  first  tests  demonstrated  severe 
"barrel"  distortion  of  the  image  (magnification  decreased  as  dis¬ 
tance  from  the  optical  axis  increased).  A  grid  board,  made  of 
flat  black  plywood  with  a  1-inch  by  1-inch  grid  of  white  threads, 
was  held  with  its  face  in  the  plane  y=0  and  was  photographed  on 
the  primary  data  camera.  The  grid  board  was  then  held  with  its 
face  in  the  plane  x=.5  inch  and  was  photographed  on  the  front  view 
camera . 

The  film  image  recorded  on  the  primary  data  camera  (side 
view)  was  mounted  on  the  Producers  Service  Corporation  model  PVR 
film  analyzer.  The  grid  system  was  rotated  until  the  horizontal 
grid  line  closest  to  the  x-axis  and  the  vertical  grid  line  closest 
to  the  y-axis  were  parallel  to  the  respective  axis. 

The  intersections  of  the  vertical  grid  line  images  and 
!  the  x-axis  were  digitized  from  the  line  which  coincided  with  the 

y-axis  to  the  grid  line  32  inches  forward  from  it.  This  was  re¬ 
plicated  twice  and  the  three  sets  of  readings  were  averaoed.  Vhe 
average  readings  were  p'otted  versus  grid  board  displacement 
(Figure  18).  Since  program  HIFPR  was  used  to  process  the  data. 
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Figure  18.  Average  and  Modified  -50GX  Readings  Versus 
Grid  Displacement. 


it  was  incumbent  that  the  readings  be  mod if:ed  to  present  l::  -  •. : 
relationship  between  observed  point  distance  from  the  optical 
and  corrected  image  distance  from  the  optical  axis. 

As  is  the  case  with  most  fine  wide  angle  lenses,  the 
linear  displacement  of  an  image  point  from  the  optical  axis  appro  xi 
mated  a  direct  relationship  to  angular  displacement  from  the  opti¬ 
cal  axis  to  the  line  from  the  focal  point  to  the  observed  point. 

From  readings  of  gr j_d  lines  in  the  relatively  undistcrted 

central  portion  of  the  image  frame  (cos  .  •  .99)  and  the  fi due: a  Is 

on  the  seat  frame  structure,  the  apparent  distance  from  the."  focal 

point  to  the  grid  was  calculated  to  be  60.63  inches  by  zhe  method 

illustrated  in  Figure  4.  Using  an  arc  of  radius  60.63  inches 

each  reading  was  modified  by  dividing  by  the  cosine  of  the  ancle 

between  the  optical  axis  and  the  ray  from  the  observed  point.  A 

conversion  factor  was  calculated  in  terms  of  counts  read  per  inch 

grid  displacement  for  each  point.  The  best  straight  line  fit  to 

the  resulting  conversion  factors  was  calculated  to  be  136.1  counts 

per  inch  (1633.2  counts  per  foot) .  The  coefficient  of  deternina- 
2 

tion  (r  )  and  correlation  coefficient  (r)  each  exceeded  .9999. 
Application  of  this  conversion  constant  to  the  modified  readmes 
resulted  in  solutions  within  +  .10  inch.  These  results  are  tabu¬ 
lated  in  Table  12  and  plotted  in  Figure  IS.  The  mean  of  the  errors 
was  .0206  inch  and  the  standard  deviation  was  .0345  inch. 

2.4.4  Data  Acquisition 

Prior  to  the  start  of  the  test  proaram  ranae  survey  data, 
presented  in  the  Photometric  Range  section,  were  measured  and  re¬ 
corded  . 

During  preparation  for  each  data  run.,  :  idue ;  a  1  s  we  re¬ 
marked  on  the  anthropometric  points  to  Lie  tr  ac.-s'd.  These  :  ;  ;  .<  ■ :  a  ! 
were  applied  with  a  black  fei;  ui:  mark-  r  s  ■  :-.<•••  :v  •<>  i  •  -a  !!;••»•  i  ••  ; 
fiducials  had  been  found  to  e  f  f  :  •.  iy  idh.  r--  ‘o  *  !;.  •;  d  :  n  •  •  '  .  • 
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The  anthropometric  sitting  height  of  the  subject  was 
measured  while  the  subject  was  lying  on  its  side.  The  measure¬ 
ment  was  taken  from  the  lower  base  of  the  tail  to  the  level  of 
the  brow  ridge. 

After  the  subject  was  positioned  and  the  harness  preten- 
sioned,  the  lengths  of  the  body  segments  and  breadths  at  the 
shoulder,  elbow,  and  knee  fiducials  were  measured  anu  recorded. 

The  sitting  height  was  again  measured  from  the  seat  pan  to  the 
brow  ridge  along  a  line  parallel  to  the  seat  back.  These  data 
along  with  subject  and  run  signature  data  were  recorded  on  a 
pretest  measurements  form.  The  data  are  defined  in  Table  13  and 
are  presented  in  Tables  14  thru  16. 

Cinematographic  recordings  of  the  subject  were  made  on  the 
cameras  described  in  the  Photometric  Range  section.  The  data 
cameras  were  operated  at  a  nominal  speed  of  five  hundred  (500) 
frames  per  second  from  time  t=  -2.0  to  t=  +2.0  seconds.  Timing 
on  the  films  was  accomplished  by  a  pulsed  light  emitting  diode 
(LED)  driven  at  100  pulses  per  second.  Synchronization  was  accom¬ 
plished  by  a  strobe  flash  triggered  by  a  t=0  pulse  simultaneously 
recorded  on  the  electronic  data  acquisition  system. 

2.4.5  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape-to-card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  system  at  the  Aeronautical  Systems  Division’s  Diaital  Computa¬ 
tion  Facility  (ASD/AD)  ir.  Building  676,  Area  B,  Wrioht-Patterson 
A:.  Force  Rase ,  Ohio. 


TABLE  13 

PRETEST  MEASUREMENTS 


Data  Item  Definition 


1  Test  Run  Number. 

2  Date  of  Test  Run. 


3 

4 

5 

6 


Subject  Identification. 
Weight  of  Subject  (lbs). 


Sitting  Height  (cm) 
to  brow  ridge, 


measured  from  seat  pan  surface 
parallel  with  seat  back  plane. 


Distance  (cm)  in  x-z  plane  between  tip  of  snout  and 
center  of  head  accelerometer  pack  mounting 
screw. 


7  Distance  (cm)  in  x-z  plane  between  center  of  head 

accelerometer  pack  mounting  screw  and  jaw  hinge 
point. 

8  Distance  (cm)  in  x-z  plane  between  jaw  hinge  point 

and  shoulder  point. 

9  Distance  (cm)  between  the  shoulder  point  and  the 

hip  point. 


10 

Distance  (cm) 
point . 

between  the  shoulder  point 

and  elbow 

11 

Distance  (cm) 

between  hip  point  and  knee 

point . 

12,  13 

Anthropometric  sitting  height  (12  cm; 
Measured  from  lower  base  of  tail 
while  subject  lying  on  side. 

13 

to 

in)  . 

brow  ridge 

14 

Breadth  (cm) 

across  shoulder  points. 

15 

Breadth  (cm) 

across  elbow  points. 

16 

Breadth  (cm) 

across  knees. 

"S'— 
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TABLE  16 A 

I  PC  PRETEST  MEASUREMENTS  LIVE  SUBJECTS  MIL  HARNESS ,  EECZLERA70R 
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104 

105 
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'30503 

'30504  ' 
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50 . 0 

51.0 

51.5 

47.25 
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14 . 1 
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i  3 . 4 

15.2 
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40.0 
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39.4 
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2 1  > 
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23.0 

ii 
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21 . 5 
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67.  3 

'0.5 

13 
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14 

2  2.4 
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19 . 2 
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15 
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2  3.1 

28 . 0 
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16 

20.5 
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21 . 3 

25.7 

26.1 

15  . 1 
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110 
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2 . 4 . 5 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on 
a  light  table  and  the  frames  and  0.01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames 
per  second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated.  During  the  test  program  the  film  speed  ranged 
between  485  and  515  frames  per  second.  During  each  test  run  the 
film  speed  was  constant  +1  frame  per  second,  during  the  200  milli¬ 
seconds  following  initiation. 

2. 4. 5.2  Digitizing 

The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed.  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  the  seat  forward 
and  aft  fiducials  were  read  to  be  within  +20  counts  of  (-150, 
-1370)  and  (-1310,  -1300)  respectively.  The  projected  image 
coordinates  were  then  digitized  in  the  following  sequence. 

1.  Seat  forward  fiducial 

2.  Seat  aft  fiducial 

3.  Hip  fiducial 

4.  Knee  fiducial 

5.  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Head  accelerometer  pack 

8.  Tip  of  snout 

The  digital  values  of  these  coordinates,  pre- 
ceeded  by  the  frame  number,  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/I5,  8F7.0).  Each  of  the  8F7.0  fields  contained 
four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame  zero 
were  digitized,  the  coordinates  from  each  succeeding  frame  were 
digitized  in  the  same  sequence  until  the  frame  in  which  either  of 
the  head  point  images  was  obscured  by  the  arm  image. 
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2.4.5. 3 


Electronic  Data  Processing 


This  portion  of  the  process  required  three 
procedures,  data  preparation,  computation,  and  plotting. 

Data  Preparation:  During  the  data  preparation 
procedure,  the  file  recorded  on  punched  paper  tape  was  communi¬ 
cated  to  the  computer  at  ASD/AD  from  a  TTY  via  voice  quality 
lines.  The  file  was  then  edited  to  correct  format  and/or  charac¬ 
ter  errors.  Program  CH1FPD  was  then  attached  to  modify  the 
readings  to  compensate  for  distortion.  CHIFPD  (Appendix  D)  cal¬ 
culated  the  resultant  distance  from  the  origin  of  each  pair  of 
PCS  coordinates  read  in  by 


The  angle  (y)  between  the  ray  from  the  point 
and  the  optical  axis  was  then  calculated  by 

r 

y  “  K 

where  K  was  inpur  as  138./  counts/degree . 

The  modified  abscissa  (x  )  was  determined  by 

c 

x 

X  -  -  , 

C  COSY 


and  the  modified  ordinate  (y  ,)  was  calculated  by 


y  ^  — Y_ 

c  COSY 


The  output  was  batched  to  a  printer  and  a 
card  punch  for  creation  of  the  permanent  file.  Concurrently,  the 
identification,  control,  and  conversion  constant  cards  required 
by  program  HIFPD  were  punched  for  merger  with  the  card  file. 


f>4 


The  identification  card  contained  alphanumeric 
information  in  card  columns  (cc)  1  through  80  which  was  printed 
on  output  tables  as  table  identif ication .  The  form  used  was  1PC 
TEST  - ,  IMPULSE  ACCELERATOR  (DECELERATOR) . 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes . " 

The  conversion  constant  card  contained  the 
film  speed  (frames  per  second)  and  conversion  constants  to  be 
applied  to  the  second,  third  and  fourth  pairs  of  coordinates  on 
the  first  line  read  from  each  frame,  and  the  first  through  fourth 
pairs  of  coordinates  on  the  second  line  read  from  each  frame. 

The  format  for  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  modified  PCS 
coordinate  readings,  it  was  merged  with  the  previously  punched 
ID,  control  and  constant  cards,  and  the  computer  control  cards 
for  submission,  to  ASD/AD  for  computation.  The  composition  of  a 
typical  computer  runs  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD. 

The  PCS  coordinate  readings  of  the  two  reference 
fiducials  from  the  first  film  frame  are  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PSC  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film  frame  trans¬ 
lated  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  minimize  errors 
due  to  vibration  of  the  camera  during  the  test  event  and  to  com¬ 
pensate  for  frame  to  frame  variations  caused  by  the  rotating  prism. 


95 


The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  through 
20  in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  subtracted  from  the  x  and  z  coordinates  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  relative 
to  the  reference  point.  Thus  the  origin  of  the  calculated  coordi¬ 
nate  system  had  been  translated  to  the  location  of  the  aft  seat 
reference  fiducial. 

From  the  time  histories  of  seat  coordinate 
positions,  HIFPD  computed  total  velocity  and  acceleration  time 
histories  of  each  point,  fitting  a  moving  quadratic  arc  to  eleven 
points  during  each  differentiation,  and  the  angular  velocity  and 
acceleration  time  histories  of  the  head  accelerometer  about  the 
snout,  and  of  the  shoulder  about  the  hip  point,  again  fitting  a 
moving  quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting;  After  examination  of  the  tabulated 
results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2.4.6  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms. 

In  the  data  report  deficiencies  in  the  derivations  of 
velocity  and  acceleration  time  histories  were  cited.  These 
deficiencies  and  a  brief  description  of  the  analyses  upon  which 
they  were  based  were  presented  in  Paragraph  2.3.6. 
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The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  rear 
seat  reference  point  with  respect  to  the  forward  reference  point. 
The  standard  deviations  were: 


Run 

x-Axis 

(feet) 

z-Axis 

(feet) 

1444 

.0035 

.0002 

1447 

.0035 

.0002 

1450 

.0017 

.0001 

1451 

.0108 

.0005 

1453 

.0021 

.0001 

1456 

.0036 

.0002 

1462 

.0027 

.0001 

1466 

.0019 

.0001 

105 

.0036 

.0002 

109 

.0053 

.0002 

111 

.0046 

.0002 

115 

.0030 

.0001 

The  effect  of  smoothing  the  displacement  solutions  of  the 
tracked  points  are  indicated  in  Table  17 ,  which  presents  the  stan¬ 
dard  deviations  of  the  difference  between  unsmoothed  and  smoothed 
components  of  the  displacements  taken  from  a  representative  sample 
of  the  tests . 

2.5  UPPER  TORSO  RETRACTION 

The  survivability  of  emergency  escape  from  aircraft  has 
historically  been  a  primary  concern  of  the  United  States  Air  Force. 
Over  the  years,  as  aircraft  performance  has  been  improved,  the 
risk  of  injury,  either  fatal  or  disabling,  has  tended  to  increase. 
Research  efforts  leading  to  the  development  of  devices  and  systems 
to  provide  improved  injury  protection  and  reduction  of  risk,  and 
evaluation  of  the  products  of  these  efforts,  have  continuously  been 
conducted  and/or  sponsored  by  the  Air  Force. 
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TABLE  17A 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  JNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  LIVE  SUBJECTS 


TEST  1444  TEST  1447 


x- axis 

z- axis 

x-axis 

z-axis 

Hip 

.0032 

.0017 

.0063 

.0049 

Knee 

.0025 

.0032 

.0085 

.0061 

Shoulder 

.0037 

.0031 

.0137 

.0129 

Elbow 

.0031 

.0099 

.0072 

.0112 

Head  Point  1 

.0135 

.00S6 

.0110 

.0075 

Head  Point  2 

.0081 

.0064 

.0132 

.0166 

TABLE  17B 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

1450 

TEST 

1451 

x-axis 

z-axis 

x-axis 

z-axis 

Hip 

.0018 

.0017 

.0105 

.0041 

Knee 

.0033 

.0028 

.0104 

.0069 

Shoulder 

.0095 

.0096 

.0169 

.0103 

Elbow 

.0083 

.0042 

.0147 

.0112 

Head  Point  1 

.0092 

.0101 

.0223 

.0109 

Head  Point  2 

.0163 

.0107 

.0252 

.0137 
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TABLE  17C 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  MILITARY  RESTRAINT,  LIVE  SUBJECTS 


TEST 

x-axis 

1453 

z-axis 

TEST 

x-axis 

1456 

z-axis 

Hip 

.0023 

.0024 

.0031 

.0034 

Knee 

.0056 

.0050 

.0038 

.0039 

Shoulder 

.0140 

.0049 

.0104 

.0052 

Elbow 

.0100 

.0052 

.00  34 

.0033 

Head  Point  1 

.0033 

.0062 

.0101 

.0089 

Head  Point  2 

.0139 

.0081 

.0153 

.0195 

TABLE  17D 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
IN  FEET  MILITARY  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

x-axis 

1462 

z-axis 

TEST 

x-axis 

1466 

z-axis 

Hip 

.0027 

.0021 

.0029 

.0028 

Knee 

.0034 

.0022 

.0032 

.0040 

Shoulder 

.0063 

.0026 

.0153 

.0084 

Elbow 

.0039 

.0033 

.0067 

.0069 

Head  Point 

1 

.0081 

.0032 

.0099 

.0066 

Head  Point 

2 

.0078 

.0024 

.0093 

.0048 
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STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 

DATA  IN  FEET 


100 


In  an  ejection  environment,  emphasis  must  be  placed  on 
the  method  of  positioning  and  restraining  the  torso,  head,  and 
extremities  of  the  crewman  in  his  seat.  Ideally  the  crewman 
would  be  restrained  in  such  a  manner  that  during  an  ejection  event, 
he  would  demonstrate  no  motion  relative  to  the  seat.  A  crewman, 
however,  also  requires  freedom  of  movement  to  perform  his  tasks. 

The  obvious  solution  was  the  development  of  a  restraint  system 
which  would  provide  the  required  freedom  of  movement  but  which  in 
an  emergency  situation  would  rapidly  retract  the  crewman  into 
position  and  restrain  him  with  force  sufficient  to  protect  him 
from  responding  adversely  to  the  acceleration  of  the  seat  and  the 
force  of  windblast. 

The  work  described  herein  was  accomplished  to  demonstrate 
a  photo  analysis  method  proposed  for  use  to  describe  the  response 
motion  of  body  segments  of  human  subjects  exposed  to  the  upper 
torso  retraction  environment.  Laboratory  simulations  were  con¬ 
ducted  by  the  Biomechanical  Protection  Branch  of  the  AF  Aero¬ 
space  Medical  Research  Laboratory  (AMRL/BBP)  during  the  period 
January  -  May  1978.  The  tests  were  conducted  on  the  Body  Position¬ 
ing  Restraint  Device  (BPRD)  located  in  Building  824,  Wright- 
Patterson  Air  Force  Base,  Ohio. 


2.5.1 


Requirements 


Primary  objectives  of  the  photometric  effort  were: 


(1)  To  describe  position-time  histories  of  anthropometric 
points  defining  the  body  segments  relative  to  the 
test  device  seat,  and  to  derive  velocity  and  accelera¬ 
tion  time  histories  of  these  points. 


(2)  To  derive  time  histories  of  angular  velocity  and 

angular  acceleration  of  the  head  about  its  y  axis. 


(3)  To  derive  time  histories  of  angular  velocity  and 

angular  acceleration  of  the  helmet  about  its  y  axis. 
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(4)  To  describe  the  position-time  history  of  the  retrac¬ 
tion  piston  and  to  derive  time  histories  of  its 
velocity  and  acceleration. 

Secondary  objectives  of  this  effort  were: 

(1)  To  record  motion  of  the  shoulder  harness  relative 
to  the  subject's  sternum  for  the  purpose  of  assess¬ 
ing  slippage  of  the  harness  relative  to  the  chest 
and  shoulders. 

(2)  To  record  the  test  event  from  a  number  of  viewpoints 
sufficient  to  demonstrate  restraint  system  and  sub¬ 
ject  performance. 

The  body  segment  motions  specified  for  description  were 
the  upper  arm,  the  upper  leg,  the  torso  and  the  head.  The  points 
selected  to  define  these  segments  were: 

upper  arm:  The  lateral-most  projection  of  the  acromion 
process  of  the  scapula  and  the  lateral  most 
point  on  the  lateral  humeral  condyle. 

upper  leg:  The  lateral-most  point  on  the  greater  femoral 
trochanter  and  the  lateral  most  point  on  the 
lateral  femoral  condyle. 

torso  :  The  lateral-most  point  on  the  greater  femoral 
trochanter  and  the  spinous  process  of  the 
seventh  cervical  vertebra  (C-7) ,  which  overlies 
the  first  thoracic  vertebra  (T-l)  when  the  head 
is  erect. 

head  :  The  point  located  on  the  sagittal  plane  of  the 

nose  at  the  level  of  the  pupils  (which  is  the 
rhinion) . 

It  was  the  concensus  that  in  addition  to  the  above,  the 
lower  leg  and  lower  arm  should  also  be  defined  although  definition 
of  these  segments  was  not  a  current  requirement.  The  former  was 
defined  by  the  lateral  projection  of  the  lateral  malleolus  of  the 


fibula,  and  the  latter  was  defined  by  the  lateral-most  point  on  the 
lateral  humeral  condyle  and  the  sty  lion. 

Selection  of  all  the  above  points  was  influenced  by  two 
pri:-  iry  concerns: 

(1)  The  requirement  that  the  points  could  repeatedly  be 
located . 

(2)  The  requirement  that  the  points,  or  fixtures  iden¬ 
tifying  the  points,  be  observable  throughout  the 
test  event. 

All  of  the  points  described  above  are  widely  accepted  as 
recommended  points  for  defining  body  segments  with  the  exception 
of  the  points  on  the  head.  The  points  n  the  head  were  selected 
because  the  helmet,  toaether  with  the  cupped  chin  strap,  left  only 
the  forward  facial  area  exposed .  The  points  or  the  nose  were 
considered  to  be  the  only  practical  points  on  the  head  which  would 
satisfy  the  above  requirements. 

2.5.2  Photometric  Range 

The  photometric  range  as  illustrated  in  Figure  19,  was  a 
three  dimensional,  perpendicular  coordinate  system,  the  origin  of 
which  was  at  the  intercept  of  the  seatback  plane,  the  seatpan 
plane,  and  the  plane  of  symmetry  of  the  seat.  The  z  axis  was 
positive  upward  along  the  centerline  of  the  seatback,  the  x  axis 
was  positive  forward  along  the  line  normal  to  the  se'tback  plane, 
and  v  was  positive  to  the  right  of  the  seat. 

Reference  fiducials  were  affixed  to  the  sect  structure, 
ten  on  the  RH  side  panel  and  nine  on  forward  facing  surfaces. 

Three  additional  fiducia’s  s20,  21,  22)  were  applied  to  the  cut- 
board  surface  of  the  Ri!  side  of  the  test  facility  frame  structure 
forward  of  the  seat.  The  points  are  identified  in  Figure  lr<  and 
their  coordinate  positions  are  presented  m  Table  IS. 


».  0  ' 


ure  1C  . 


BPRD  Seat  Coordinate  £yr 
Reference  Fiducial  Locat 
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TABLE  18 


3PRD  REFERENCE  FIDUCIAL  COORDINATES 


v\ 

c 

•HI 

x( inches) 

V (inches) 

z ( inches) 

1 

-2.05 

10.5 

34.57 

2 

-2.05 

10.5 

28.5 

3 

-2.05 

10.5 

10.55 

4 

-2.05 

10.5 

4.57 

5 

4.88 

10.5 

1.1 

6 

10.75 

10.5 

.43 

7 

15.87 

10.5 

-  .25 

8 

4.41 

10.5 

-  .83 

9 

10.35 

10.5 

-  1.26 

10 

15.55 

10.5 

-  1.69 

11 

0.0 

7.68 

40.28 

12 

0.0 

0.0 

40.30 

13 

0.0 

-  7.93 

40.31 

14 

0.0 

9.83 

22.64 

15 

0.0 

9.83 

22.64 

16 

0.0 

-  9.83 

12.6 

17 

0.0 

-  9.83 

12.6 

18 

22.89 

9.83 

-  3.16 

19 

22.88 

-  9.83 

-  3.24 

20 

32.45 

-18.25 

5.83 

21 

38.68 

-18.25 

2.08 

22 

31.24 

-18.25 

-12.27 
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.Three  Milliken  16mm  motion  picture  cameras  were  mounted, 
two  to  the  RH  side  of  the  test  facility  frame  and  the  third  for¬ 
ward  of  the  frame.  The  locations  of  these  cameras  are  illustrated 
in  Figure  20  and  the  coordinates  of  their  focal  points  and  camera 
body  orientations  are  listed  in  Table  19. 

2.5.3  Photogrammetric  Calibration 

'In  the  discussion  of  the  approach  to  the  photometric  sys¬ 
tem  two  assumptions  were  made  :  that  the  focal  lengths  of  the  re¬ 
cording  and  projection  lenses  introduced  no  distortion,  and  that 
the  focal  lengths  were  precisely  stated.  The  validity  of  these 
assumptions  must  be  questioned. 

A  flat-black  board,  24  inches  x  48  inches,  containing  a 
1  inch  x  1  inch  grid  pattern  of  white  thread  was  photographed  by 
each  camera  as  follows: 


Camera  View 


Board  Location  and  Orientation 


A 

A 


B 


C 


1  Surface  in  plane,  y=0,  longer  edge  on  z  axis, 
shorter  edge  on  x  axis. 

2  Surface  in  plane,  y=  -6.97  inches,  longer 
edge  against  plane  x=0,  shorter  edge  in 
plane  z=0  . 

1  Surface  in  plane  y=0,  lower  edge  parallel 

with  deck,  3/8  inch  above  deck.  Longer  edge 
against  forward  edge  of  seat  pan. 

1  Surface  perpendicular  to  deck  1/2  inch  for¬ 
ward  of  forward  most  points  on  armrests. 

Lower  edge  on  deck. 


These  views  of  gridboard  are  on  the  film  reel  immediately  after 

the  views  of  test  run  271. 

From  these  films  a  slight  "barrel  distortion"  was  ob¬ 
served  on  all  views.  No  corrections  were  made  since  the  distor¬ 
tion  was  considered  to  be  inconsequential  in  the  area  of  the  frame 
being  evaluated. 
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CAMERA 

STATION 

A 


CAMERA  C 


STATION 

E 


Figure  20 


Camera  Locations  in  BP.TD  Seat  Coordinate 
System. 


TABLE  19 


BPRD  COORDINATES  OF  CAMERA  FOCAL  POINTS 
AND  CAMERA  BODY  ORIENTATIONS 


Camera 

FOCAL 

°OINT  COORDINATES 

AZIMUTH 

ELEVATION 

ROLL 

Station 

x( inches) 

y ( inches ) 

z(  inches) 

(radians) 

(radians) 

(radians; 

A 

0.0 

66.61 

19.21 

4.712 

.006 

.002 

B 

28.0 

37.49 

-6.72 

4.712 

-.002 

.236 

c 

68.98 

0.84 

8.36 

3.142 

.299 

.001 
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From  the  gridboard  views  recorded  on  the  camera  at  Station 
A,  readings  were  taken  from  the  PCS  z  axis  intercepts  of  five  pairs 
of  horizontal  gridlines,  the  lines  of  each  pair  being  twelve  inches 
apart.  This  same  procedure  was  applied  to  the  PCS  x  axis  inter¬ 
cepts  of  five  pairs  of  vertical  gridlines.  An  average  of  the 
displacements  of  the  PCS  readings  was  taken  for  each  of  the  grid- 
board  locations.  The  resulting  conversion  factors  were  1377.75 
counts  per  foot  at  SCS  y=0  and  1548  counts  per  foot  at  SCS 
y=  -6.969  inches. 

Referring  to  Figure  4  the  following  values  were  assigned: 

r  =  r  .  =  12  inches 
o  o2 

r  =  1377.75  counts 
P 

r  _  =  1548  counts 
P2 

s  -s  -  -  6.97  inches, 
o  o2 

The  distance  from  the  axis  at  which  the  ray  from  pQ  to  the  focal 
point  penetrated  the  Object  2  Plane  was  calculated  to  be: 


r  _  r 

r  r  _ 

o2  p2 


r 


o2 


r 


p2 


r 


12  inches 


1377.75  counts, 
1548  counts 


r  =  10.68  inches. 


The  apparent  distance  from  the  focal  point  to  the  plane  y=0  was 
calculated  to  be: 


s 


o 


s 


o 


-s 


o2 


r 


s 


o 


r 

o 


'o2 


-  r 
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„  _  c  m  ,  ,12  inches  , 

=  6.97  inches  ^ — — — : - - — 

o  1.32  inches 


sq  =  63.36  inches . 


Calculation  of  a  conversion  constant,  f  ,  for  any  plane,  v=n ,  was 

n 

then  accomplished  using: 

s 

f  =  — -  x  1377.75  counts  per  foot 

n  s  —  y 
o 

where  y  was  either  one  half  the  measured  breadth  of  the  subject 
between  anthropometric  points  on  the  right  and  left  side  or  the 
measured  y  displacement  of  fiducials  on  the  test  facility. 

2.5.4  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division's  Digital  Computa¬ 
tion  Facility  (ASD/AD)  in  Building  67C,  Area  B,  Wright-Patterson 
Air  Force  Base. 

2 . 5 . 4 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on  a 
light  table  and  the  frames  and  .01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames  per 
second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated.  During  the  runs  processed  the  frame  rate  was 
500  +  1  frames  per  second  during  the  300  milliseconds  followina 
ini tiation . 
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The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  until  the  operator  observed  that 
the  subject  motion  had  apparently  terminated.  The  number  of  the 
frame  was  noted  as  termination  time. 

2. 5. 4. 2  Digitizing 

Upon  completion  of  the  editing  procedure,  the 
film  was  transported  reverse  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed.  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  fiducials  10  and 
8  were  read  to  be  within  +20  counts  of  (2145,  -2860)  and  (640, 
-2765)  respectively.  The  projected  image  coordinates  were  then 
digitized  in  the  following  sequence. 

1.  Arm  rest  forward  fiducial  (10) 

2.  Arm  rest  aft  fiducial  (8) 

3.  Mid  thigh  fiducial 

4.  Knee  fiducial 

5.  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Upper  nose  fiducial 

8.  Lower  nose  fiducial 

9.  Retraction  piston  fiducial 

10.  T-l  vertebra  fiducial 

11.  Upper  helmet  fiducial 

12.  Lower  helmet  fiducial 

The  digital  values  of  these  coordinates,  pre- 
ceeded  by  the  frame  number,  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/15,  8F7.0/15,  8F7.0).  Each  of  the  8F7.0  fields 
contained  four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame 
zero  were  dinitized,  the  coordinates  from  each  succeeding  frame 
were  digitized  in  the  same  sequence  until  the  fifteenth  frame 
following  the  frame  noted  as  termination  time.  The  last  fifteen 
frames  were  digitized  to  prevent  timewise  truncation  of  velocity 
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and  acceleration  curves  due  to  smoothing  of  the  data  during  elec¬ 
tronic  data  processing. 

2. 5. 4. 3  Electronic  Data  Processing 

This  portion  of  the  process  required  three  pro¬ 
cedures,  data  preparation,  computation,  and  plotting. 

i 

Data  Preparation:  During  the  data  preparation  1 

procedure,  the  file  recorded  on  punched  paper  tape  was  communicated 
to  the  computer  at  ASD/AD  from  a  TTY  35  via  voice  quality  lines. 

The  file  was  then  edited  to  correct  format  and/or  character  errors, 
and  was  batched  to  a  card  punch  for  creation  of  the  permanent  file. 
Concurrently,  the  identification,  control,  and  conversion  constant 
cards  required  by  program  HIFPD  were  punched  for  merger  with  the 
card  file. 

The  identification  card  contained  alphanumeric 
information  in  card  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RAPID 

RESTRAINT  TEST  _ ,  SUBJECT  _ ,  YYMMDD.  The  last  entry  is  the 

date  on  which  the  test  was  conducted  in  terms  of  year,  month,  and 
day  of  month. 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes . " 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
to  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of 
coordinates  on  the  second  line  read  from  each  frame.  The  format 
for  this  card  was  (8F10.0) . 


Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/AD  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD ,  which  is  described 
fully  in  Section  2.2.  Two  versions  of  the  program  were  filed. 

The  first  read  the  digitized  values  from  the  first  and  second 
lines  from  each  frame  and  wrote  the  appropriate  heading  and 
labels  on  tables  and  plots.  The  second  version  read  the  digi¬ 
tized  values  in  the  first  and  third  lines  from  each  frame  and 
wrote  the  appropriate  headings  and  labels  on  tables  and  plots. 

This  variation  required  two  passes  through  the  computer. 

Although  program  HIFPD  is  documented  herein  a  brief  dis¬ 
cussion  of  the  application  is  warranted. 

The  PCS  coordinate  readings  of  the  two  refer¬ 
ence  fiducials  from  the  first  film  frame  are  used  as  the  basis 
for  the  location  of  optical  axis  relative  to  the  reference  points 
and  for  the  angular  relationship  between  the  axes  of  the  PCS  and 
the  SCS.  Readings  of  these  points  from  each  subsequent  film 
frame  translated  and  rotated  the  PCS,  coordinate  system  to  coin¬ 
cide  with  the  orientation  of  the  first  frame.  This  was  done  to 
minimize  errors  due  to  vibration  of  the  camera  during  the  test 
event. 

The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  thru  20 
in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
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values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  subtracted  from  the  x  and  z  displacements  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  rela¬ 
tive  to  the  reference  point.  Thus  the  origin  of  the  calculated 
coordinate  system  had  been  translated  to  the  location  of  reference 
fiducial  8. 

From  the  time  histories  of  seat  coordinate  posi¬ 
tions,  HIFPD  computed  total  velcoity  and  acceleration  time  histories 
of  each  point,  fitting  a  moving  quadratic  arc  to  eleven  points 
during  each  differentiation,  and  the  angular  velocity  and  accelera¬ 
tion  time  histories  of  the  upper  nose  point  about  the  lower,  and 
of  the  shoulder  about  the  mid  thigh  point;  again  fitting  a  moving 
quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting :  After  examination  of  the  tabular 

results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2.5.5  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms.  The  accuracy  with  which  these  results  represent 
the  actual  motions  of  the  observed  points  is  the  subject  of  debate. 
The  following  deficiencies  may  be  inferred  from  a  study  conducted 
by  H.  T.  Mohlman  of  the  UDRI . ^ 

(1)  Attenuation  of  peak  values  of  displacement,  velocity 

and  acceleration  is  a  function  of  frequency. 

(2)  The  eleven  point  quadratic  fit  yields  closer  corre¬ 
lation  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

lGrnf,  P.A.  and  ii.T.  Mohlman,  Accuracy  of  Diqitized  Photometric 
Data,  AMRL-TR-79-76 ,  April,  1980,  Aerospace  Medical  Research 
Laboratory,  Wri  :ht-Patterson  Air  Force  Base,  Ohio. 
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(  1)  The  attenuation  of  any  specific  displacement,  velo¬ 
city,  or  acceleration  peak  is  reasonably  predictable 
if  the  apparent  frequency  of  the  peak  is  properly 
interpreted . 

(4)  Oscillations  in  velocity  and  acceleration  curves  are 
predominantly  artifacts  induced  by  reading  errors. 

The  frequency  is  a  function  of  the  sampling  rate  and 
the  number  of  points  included  in  the  smoothing  fit. 

The  referenced  work  included  investigation  of  sampling 
theory  and  application  of  the  quadratic  fits  to  digitized  photo¬ 
metric  data  acquired  during  BPRD  tests  172  and  173. 

Frequency  response  curves  presented  in  Figure  21  were 
derived  from  fitting  eleven  points  of  sinusoidal  motion  at  fre¬ 
quencies  from  2  Hz  to  35  Hz  at  a  sampling  rate  of  500  samples/ 
second.  The  data  from  which  these  curves  were  constructed  are 
presented  in  Table  20  and  are  described  in  detail  in  the  referenced 
report . 

The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  forward 
seat  reference  point  with  respect  to  the  rear  reference  point.  The 
standard  deviations  were: 


x-Axis 

z-Axis 

Run 

( feet) 

( feet) 

172 

.  0073 

.00049 

173 

.0030 

.00017 

The  effect  of  smoothing  the  displacement  solutions  of  the 
tracked  points  are  indicated  in  Table  21,  which  presents  the 
standard  deviations  of  difference  between  unsmoothed  and  smoothed 
components  of  the  displacements. 


Figure  21.  Frequency  Response  of  11-Point  Smoothing  as  Applied 
in  the  HIFPD  Program. 


TABLE  20 


DISTORTION  FACTOR  (FK)  COMPUTED  FROM 
MULTIPLE  FREQUENCY  SINE  FUNCTIONS 


f 


f  (Hz)  * 

Q 

Distor 

ticn  Factor 

(FK) 

O 

r  *  f 

S 

F 

DISPL 

VEL 

ACCEL 

2 

.04 

.9974 

1.0000 

.9981 

.9963 

-* 

.08 

.9895 

1.0000 

.9925 

.9851 

6 

.12 

.9765 

.9999 

.9831 

.9667 

8 

.16 

.9584 

.9997 

.9700 

.9413 

10 

.20 

.9355 

.9993 

.9532 

.9093 

12 

.24 

.9079 

.9985 

.9327 

.8713 

14 

.28 

.8759 

.9972 

.9066 

.8278 

16 

.32 

.8399 

.9953 

.8809 

.7796 

18 

.36 

.8000 

.9926 

.8498 

.7275 

20 

.40 

.7568 

.9888 

.8154 

.6724 

22 

.44 

.7106 

.9838 

.7779 

.6151 

24 

00 

.6618 

.9975 

.7376 

.5567 

26 

.52 

.6109 

.9695 

.6949 

.4981 

28 

.56 

.5583 

.9597 

.6500 

.4403 

30 

.60 

.5046 

.9479 

.6034 

.3841 

32 

.64 

.4500 

.9340 

.5556 

.3305 

34 

.68 

.3952 

.9177 

.5070 

.2801 

35 

.70 

.3679 

.9086 

.4826 

.2563 

*f  applies  only  to  an  11-point  fit  of  data  sampled  at  500  samples  per 
second;  use  r  to  determine  FK  for  other  fits  and/or  sample  rates. 
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TABLE  21 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND 
SMOOTHED  DISPLACEMENT  DATA  IN  FEET 


TEST 

x-axis 

172 

z-axis 

TEST 

x-axis 

173 

z-axis 

Hip 

.0028 

.0028 

.0027 

.  0030 

Knee 

.0028 

.0039 

.0034 

.0041 

Shoulder 

.0077 

.0041 

.  0080 

.  0046 

Elbow 

.0039 

.0091 

.0048 

.0039 

Head  Point 

1 

.0085 

.  0058 

.0090 

.  0060 

Head  Point 

2 

.0121 

.0083 

.0128 

.  0085 

Piston 

.0046 

.0077 

.0062 

.0072 

Tl 

.0089 

.0045 

.0093 

.  00  38 

Helmet  1 

.0090 

.0037 

.0099 

.0038 

Helmet  2 

.0082 

.0035 

.0086 

.  0038 
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section  3 

ANALYSIS  OF  NONPLANAR  MOTION 

Exposure  to  impact  environments  having  sianificant  lateral 
components  of  acceleration  usually  result  in  three  dimensional 
responses . 

A  method  was  developed  by  the  UDRI  to  solve  for  the  instan¬ 
taneous  coordinates  of  points  relative  to  a  seat  coordinate  system 
(SCS).  The  method,  documented  in  AMRL-TR-78-94 ,  employs  program 
POOCH  to  calculate  the  apparent  coordinates  of  the  focal  point 
of  each  camera  and  the  orientation  of  its  optical  axis  and  the 
film  frame  axes  in  the  SCS.  The  results  output  by  POOCH  are  in¬ 
put  to  program  SLED  to  calibrate  the  digitized  readings  of  observed 
points.  SLED  solves  for  the  most  likely  point  of  intercept  of  the 
rays  from  each  observed  point  to  each  focal  point  and  calculates 
the  distance  between  the  rays  at  each  solution  point. 

This  method  was  applied  to  photodata  collected  during  the 
DOT  6  Year  Old  Child  comparison  and  the  Whole  Body  Restraint- 
Lateral  study.  The  latter  also  required  the  derivation  of  velo¬ 
city  and  acceleration  time  histories  from  the  displacement- time 
data.  Program  WBRL  was  developed  to  smooth  the  component  dis¬ 
placement-time  histories  and  to  derive  smoothed  component  and 
resultant  velocity  and  acceleration  time  histories.  Program  WBR-L , 
with  explanatory  comments,  is  listed  in  Appendix  B. 

3.1  DOT  6  YEAR  OLD  CHILD  COMPARISON 

The  Department  of  Transportation,  under  an  interagency 
agreement,  requested  a  comparative  analysis  of  the  effectiveness 
of  three  types  of  automotive  child  restraint  systems,  and  a 
comparison  of  the  inertial  and  kinematic  responses  of  three  types 
of  surrogate  six-year-olds  while  restrained  with  each  of  the 
three  systems.  The  surrogates  were  two  manikins  of  different 
manufacture  and  nine  live  anesthetized  baboons  whose  general 
anthropometry  approximated  that  of  a  six  year  old  child. 
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The  impact  environments  were  developed  with  the  AMRL/BBP 
Horizontal  Impulse  Accelerator  Facility  at  WPAFB .  The  impact  en¬ 
vironments  simulated  were  twenty  and  thirty  miles  per  hour  head 
on  and  fifteen  and  twenty  miles  per  hour  left  lateral.  Seventy- 
five  test  runs,  including  system  performance  tests,  were  conducted 
from  22  October  1975  thru  19  December  1975. 


3.1.1  Photometric  Data  Acquisition 

The  primary  objectives  of  the  photometric  data  system  were 

to  : 

•  Develop  a  method  for  calculating  three  dimensional 
displacement  of  anthropometric  points. 

•  Collect  data  on  two  high  speed  motion  picture  cameras 
mounted  onboard  the  test  vehicle. 

•  Apply  the  developed  method  to  reduce  the  photodata  to 
time  histories  of  three-dimensional  coordinate  positions 
in  the  SCS  of  two  points  on  the  head  of  each  subject. 


The  method  developed  to  solve  the  time-SCS  position  data 
resulted  in  the  programs  POOCH  and  SLED.  These  programs  required 
application  of  fixed  reference  fiducials  and  a  survey  of  their 
coordinates  in  the  SCS.  The  camera  and  range  survey  data  from 
forward  impact  configurations  and  left  lateral  impact  conf igurations 
are  presented  in  Figures  22  and  23  respectively. 


Photo  recordings  were  recorded  on  two  Milliken  DBM-4B 
cameras  fitted  with  10  mm  lenses.  The  cameras  were  operated  at 
a  nominal  rate  of  500  frames  per  second.  Timing  of  the  film  was 
provided  by  exposure  of  the  film  edges  to  light  emitting  diodes 
excited  simultaneously  by  a  central  pulse  generator  at  100  pulses 
per  second. 


Figures  24  and  25  illustrate  typical  scenes  as  observed 
by  these  cameras  prior  to  forward  and  lateral  impacts  respectively. 


120 


•i.  :*>> 


.'instant  "nrouchout  "esc  ^er;c<i 


DRIVER’ 

O0UOU1 

CAMI 


TCT  Six-Year-OlJ  Oln  Id  tonpari  :on  Seat  Coordinate  System  and 
Survey  Data,  Lat-ral  Tnoactn. 


3.1.2 


Data  Reduction 


Reduction  of  the  recorded  data  to  displacement-time 
histories  required  digitization,  in  the  projected  image  coordinate 
system  (PCS)  of  the  coordinates  of  fixed  reference  fiduciais  and 
fiducials  on  the  heads  of  the  subjects,  and  electronic  data  pro¬ 
cessing  of  the  digitized  data  by  POOCH  and  SLED. 

Digitizing  was  accomplished  on  a  Producers  Service  Corpora¬ 
tion  model  PVR  film  analyzer  (PVR)  which  was  interfaced  to  a  tele¬ 
type  terminal  equipped  with  a  paper  tape  punch  station  (TTY) . 

The  film  was  mounted  on  the  PVR  and  was  transported  until 

the  first  time  pulse  (t=0)  was  observed.  The  film  was  transported 

in  reverse  until  the  twelfth  frame  before  the  t  pulse  to  com- 

o 

pensate  for  the  film  path  displacement  of  the  LED  from  the  exposure 
frame  in  the  gate.  The  frame  counter  was  reset  to  0000. 

The  origin  of  the  projected  image  coordinate  system  was 
located  by  numerically  bisecting  the  major  and  minor  dimensions 
of  the  projected  frame  and  resetting  the  counters  to  zero  at 
that  point.  The  PCS  coordinates  of  all  observed  reference  fiducials 
were  then  digitized  by  locating  the  cursors  over  the  center  of  each 
and  depressing  the  record  switch.  The  operator  noted  the  code 
number  of  eacn  observed  fiducial  as  it  was  digitized.  These 
values  were  later  processed  by  POOCH  to  locate  and  orient  the 
camera  for  the  data  from  this  test. 

The  operator  then  digitized  the  PCS  coordinates  of  four 
reference  fiducials,  previously  selected  as  being  observable 
throughout  the  event,  and  the  four  points  on  the  heads  of  the 
subjects.  The  resulting  tab)e  of  data  was  in  the  form  of  the 
following  format  throughout  the  program.  During  lateral  impacts 
only  one  subject  was  exposed.  When  films  from  these  tests  were 
digitized  the  reading  of  the  chin  fiducial  was  repeated  two 
additional  times  to  fill  the  file. 
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LINE  1: 
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LINE  2: 
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NOTE:  Points  tracked  on  baboons  were  the  head  accelerometer 

and  the  tip  of  the  snout. 

After  the  data  were  digitized  from  frame  zero  the  film 
was  advanced  to  frame  001  and  the  points  were  again  digitized  in 
the  same  sequence.  This  procedure  was  repeated  for  each  frame 
until  one  of  the  fiducials  on  the  head  of  one  of  the  subjects 
became  unreadable. 


The  digital  files  recorded  on  paper  tapes  were  communicated 
to  the  CDC  computer  system  at  Aeronautical  Systems  Division's 
Digital  Computation  Facility  (ASD/AD)  from  a  TTY  via  data  modem 
and  voice  quality  lines.  The  files  were  edited  to  correct  format 
and/or  character  errors  and  were  copied  to  disk  storage  and  card 
punch.  The  card  files  were  maintained  as  backup  in  case  the  disk 
files  had  been  inadvertantly  purged. 

The  files  were  amended  by  insertion  of  camera  location  and 
orientation  data  output  by  POOCH,  and  the  addition  of  the  fixed 
reference  fiducial  SCS  coordinates,  the  film  frame-time  equivalence 
table,  and  the  interpolation  interval  and  test  run  number  as 
required  by  SLED. 

The  binary  file  of  SLED  was  attached  and  executed.  The 
output  was  copied,  in  batch  mode,  to  a  printer  and  card  punch. 

The  results  were  visually  checked  for  obvious  errors.  If 
the  solutions  evidenced  no  apparent  discontinuities  and  the  miss- 
distances  at  the  solution  points  were  less  than  0.25  inch,  the 
card  deck  containing  the  SCS  solutions  was  prepared  to  generate 
plots.  The  plots  generated  presented  y  and  z  displacements  versus 
x  displacement. 

3.2  WHOLE  BODY  RESTRAINT-LATERAL 

Description  of  relative  motion  of  anthropometric  points 
of  the  torso,  head,  and  extremities  during  laboratory  simulations 
of  impact  environments  are  essential  to  the  development  and  veri¬ 
fication  of  predictive  models.  One  method  of  describing  the  motion 
of  these  points  is  to  track  each  point  as  a  function  of  time  with 
two  or  more  motion  picture  cameras,  quantify  or  evaluate  the 
coordinates  of  their  images  as  projected,  and  from  these  projected 
image  coordinates  calculate  the  loci  of  the  points  in  the  sent 
coordinate  system.  This  method  was  applied  during  the  Whole  Body 
Restraint-Lateral  (WBRL)  Impact  Study  conducted  by  the  Riomoeh.inion  ’. 
Protection  Branch  of  the  AF  Aerospace  Medical  Research  Labora¬ 
tory  (AMRL/BBP)  .  The  experimental  tests  were  conducted,  ui  the 
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Horizontal  Impulse  Accelerator  facility  in  Building  824  at  Wright 
Patterson  Air  Force  Base,  Ohio  between  March  and  July  1977. 

3.2.1  Seat  Coordinate  System 

The  seat  coordinate  system  (SCS)  was  a  left  handed  three- 
dimensional,  mutually  perpendicular  system  having  its  origin  at 
the  intercept  of  the  seat  centerline  and  the  line  of  intersection 
of  the  seat  pan  upper  surface  and  the  seat  back  forward  surface. 
The  positive  senses  of  the  axes  were  to  the  rear  (x  axis) ,  to  the 
left  (y  axis),  and  upward  [z  axis)  as  illustrated  in  Figure  26. 


Figure  26.  WBR-L  Seat  Coordinate  System  (SCS). 


3.2.2  Camera  Locations 

Photographic  records  of  the  responses  of  the  test  subjects 
were  acquired  by  four  Milliken  16  mm  cameras  operating  at  nominal 
exposure  rates  of  500  frames  per  second.  All  four  cameras  were 
mounted  onboard  and  were  located  and  oriented  such  that  each  of 
the  fiducials  located  on  the  nine  anthropometric  points  to  be 
tracked  were  observable  by  two  of  the  cameras  throughout  the  impact 
and  response  periods.  The  location  and  orientation  scheme  of  the 
cameras  is  illustrated  in  Figure  27,  and  the  coordinates  of  the 
focal  points  and  orientations  of  optical  axes  are  presented  in 
Table  22. 


Figure  27.  Schematic  of  Camera  Locations  and  Orientations,  WBK-L. 
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3.2.3 


Data  Acauisition 


The  data  acquisition  mission  consisted  of  three  distinct 

tasks : 

1.  Documentation  of  anthropometric  measurements  of  each 
subject . 

2.  Tracking  fiducial  application,  measurement,  and  docu¬ 
mentation  . 

3.  Cine  recording  of  the  tracking  fiducials  during  the 
impact  and  response  events. 

Anthropometry  of  each  test  subject  was  measured  and  docu¬ 
mented  by  AMRL/HED. 

Tracking  fiducial  application,  measurement  and  documenta¬ 
tion  were  accomplished  prior  to  each  test  run  by  the  UDRI  repre¬ 
sentative.  Tracking  fiducials  were  located  as  follows. 

The  suprasternal  notch  was  located  by  palpation  and  marked 
with  a  nylon  tip  pen. 

The  lower  end  of  the  sternum  was  located  by  palpation  and 

marked . 

Two  arcs  of  10  cm  radius  were  struck  from  the  mark  on  the 
suprasternal  notch  to  the  right  and  left  clavicles  and  were  marked. 

One-inch-diameter  fiducials,  printed  in  alternating  black 
and  yellow  quadrants  and  having  a  one-sixteenth  inch  hole  at  the 
center,  were  placed  over  these  four  marks. 

With  the  subject's  head  erect,  a  fiducial  approximately 
three-eighths  inch  high  and  one-inch  wide  was  centered  on  the 
sagittal  plane  of  the  nose  at  the  level  of  the  pupils.  A  fiducial 
of  similar  size  was  located  at  the  level  of  the  pupils  at  each 
lateral  orbital  rim. 

Two  additional  trackina  fiducials  were  previously  mounted 
to  a  leather  appliance  which  was  strapped  to  the  subject's  pel'is. 
Initially  these  fiducials  were  placed  on  the  subject  over  the 
anterior  superior  iliac  spines.  This  proved  to  be  unsatisfactory 
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because  the  fiducials  on  several  subjects  were  obscured  by  abdomma 
skin  folds  when  the  subject  was  seated. 


The  last  fiducial  was  intended  to  track  the  motion  of  the 
first  thoracic  vertebra  (T-l) .  With  the  subject's  head  bowed  for¬ 
ward  the  spinous  process  of  the  seventh  cervical  vertebra  ( C  —  7 )  was 
located  by  palpation  and  was  followed  as  the  subject  erected  his 
head.  The  fiducial  was  then  placed  over  this  point  which,  with 
the  head  erect,  overlayed  T-l. 

With  the  subject  seated  in  a  mockup  of  the  test  seat  relati 
dimensions  were  read  with  an  anthropometer  and  recorded.  Dimension 
taken  were : 


R.H. 

eye 

fiducial 

-  L.H. 

eye  fiducial 

R.H. 

eye 

fiducial 

-  Nose 

fiducial 

L.H. 

eye 

fiducial 

-  Ncse 

fiducial 

Suprasternal  notch  fiducial  -  Lower  sternum  fiducial 
Suprasternal  notch  fiducial  -  R.H.  clavicle  fiducial 

Suprasternal  notch  fiducial  -  L.H.  clavicle  fiducial 

Suprasternal  notch  fiducial  -  R.H.  pelvic  fiducial 

Suprasternal  notch  fiducial  -  L.H.  pelvic  fiducial 

Lower  sternum  fiducial  -  R.H.  clavicle  fiducial 
Lower  sternum  fiducial  -  L.H.  clavicle  fiducial 
R.H.  pelvic  fiducial  -  L.H.  pelvic  fiducial 
R.H.  clavicle  fiducial  -  L.H.  clavicle  fiducial 

After  the  subject  was  instrumented  and  seated  in  position, 
coordinates  (in  the  seat  coordinate  system)  of  the  suprasternal 
notch  fiducial,  the  R.H.  trageon,  and  the  lower,  forward,  inboard 
corner  of  the  Nine  Transducer  Accelerometer  Pack  (9TAP)  were.1  read 
and  recorded.  The  9TAP  was  mounted  on  the  R.H.  side  of  a  weldina 
mask  headband  which  was  secured  by  straps  under  the  chin  and  the 
base  of  the  occiput.  It  contained  three  linear  accelerometers  at 
the  origin  and  two  at  the  end  of  each  arm  aligned  with  each  of  the 
three  axes  of  the  head  and  was  desicned  to  yield  time  histories  or 
linear  acceleration  in  three  axes  and  anaular  accelerations  about 
those  axes . 


SB! 


T3W 


cr 


Prior  to  the  first  test,  fixed  reference  fiducials  were 
mounted  on  the  test  fixture.  These  fiducials  are  identified  in 
Figure  28,  and  their  coordinates  are  listed  in  Table  23. 

Cine  recording  of  the  responses  of  the  subjects  were  re¬ 
corded  from  t=-2  seconds  to  t=2  seconds.  The  four  Milliken  cameras 
were  remotely  operated  by  circuits  in  the  photo  instrumentation 
control  console  which  was  programmed  into  the  countdown  sequence. 
Timing  was  provided  by  a  pulse  generator  which  simultaneously  ex¬ 
cited  an  LED  in  each  of  the  cameras  at  the  rate  of  one  hundred 
pulses  per  second. 

Synchronization  of  time  among  the  films  was  accomplished 
by  a  strobe  flash,  observable  by  all  cameras,  initiated  at  t=0 . 

3.2.4  Data  Reduction 

The  desired  results  of  the  data  reduction  effort  were 
time  histories  of  coordinate  positions  of  the  tracked  points  and 
the  velocities  and  accelerations  derived  t uereform.  The  system 
used  was  a  modified  photo  theodolite  space  position  solution  system. 
The  phototheodolite  system  assumes  synchronized  exposure  of  films 
from  two  or  more  cameras.  Since  the  cameras  used  were  not  syn¬ 
chronized,  the  system  was  modified  to  synchronize  projected  film 
frame  images  by  linear  interpolation  of  projected  film  frame  co¬ 
ordinates  between  frames  at  fixed  time  intervals. 

The  overall  data  reduction  task  required  three  subtask 
areas,  film  editing,  projected  image  digitizing,  and  electronic 
data  processing. 

3. 2. 4.1  Film  Editing 

Critical  to  the  processing  of  the  photo  data  were  timing, 
legibility  of  reference  and  tracking  fiducials,  and  documentation 
of  any  anomalies  that  might  occur. 

Each  film  was  viewed  on  a  light  table  to  assure  that 
there  was  no  erratic  behavior  of  film  transport  during  recording. 
This  was  accomplished  by  sampling  the  film  intervals  between  .01 
second  LED  images  on  the  film.  If  no  significant  deviations  were 
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TABLE  23 

WBRL  REFERENCE  FIDUCIAL  COORDINATES  (CM) 


Ref.  No. 

X 

Z 

z 

1 

-45.0 

0 . 0 

-  2.5 

2 

0.0 

0.0 

0.0 

3 

0.0 

0 . 0 

45.2 

4 

0.0 

0.0 

70.0 

5 

0.0 

0.0 

91.2 

6 

0.0 

-10 . 2 

91.2 

7 

0.0 

10.2 

91 . 2 

8 

-43.7 

45.0 

39 . 5 

9 

5.6 

-16.3 

79.1 

10 

5.6 

-16.3 

63.8 

11 

5.2 

-22.4 

74.1 

12 

1.0 

17.1 

73.2 

13 

1.0 

17.2 

54.2 

14 

8.7 

-  0.4 

72.3 

15 

9.7 

0.5 

67.4 

16 

11.1 

1.0 

60.6 

17 

27.9 

16 . 4 

50.  9 

18 

27 . 8 

10.8 

50.9 
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noted,  the  average  frame  rate  was  calculated.  Since  the  cameras 
employed  were  pin  registered,  and  a  loop  of  11  to  12  frames  was 
required  between  the  pulsed  LED  and  the  shutter,  absolute  timing 
was  not  possible. 

Time  zero  was,  by  definition,  the  first  frame  in  which 
the  strobe  flash  was  observable.  Given  a  nominal  frame  rate  of 
500  frames  per  second  (500  fps)  the  maximum  synchronizing  error 
was  2  milliseconds  for  each  camera.  However,  given  the  shutter 
openings  of  140°  the  maximum  error  between  two  given  cameras  be¬ 
comes  1.22  milliseconds; 


360°  -  140° 
360 


x 


.002 


sec) 


3. 2. 4. 2  Projected  Image  Digitizing 

Films  from  cameras  mounted  onboard  at  stations  11,  12, 

13,  ind  14  were  digitized.  The  origin  of  the  film  frame  coordi¬ 
nate  system  was  determined  by  bisecting  the  horizontal  and  verti¬ 
cal  centerlines  of  the  projected  film  frame  images  from  ten  test 
runs.  The  readings  of  reference  fiducials  were  tabulated  and  the 
average  reading  of  each  fiducial  was  calculated.  These  were  de¬ 
fined  as  the  table  of  standard  readings  used  to  set  the  scales  for 
digitizing. 

The  film  was  mounted  on  the  Producers  Service  Corporation 
(PSC)  model  PVR  film  analyzer  and  the  scaling  system  was  rotated 
until  the  cursors  were  in  alignment  with  the  projected  film  frame 
image  at  the  frame  defined  as  t=0.  The  cursors  were  set  over  thi 
image  of  a  reference  fiducial  and  the  scales  were  set  to  zero. 

The  cursors  were  then  translated  until  the  negative  values  of  the 
standard  reading  for  that  fiducial  were  counted  and  were  again  re¬ 
set  to  zero.  The  readings  of  all  reference  fiducials  were  taken 
to  assure  that  they  were  all  within  +20  counts  (.02  inches)  of 
the  values  in  the  table  of  standard  readings. 
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From  Cameras  11  and  12  the  data  points  were  digitized  to 
punched  paper  tape  in  the  format  (15,  8F7.0/5X,  8F7.0/5X,  8F7.0). 
The  "15"  was  the  frame  number.  Each  of  the  "8F7.0"  formats  was 
composed  of  four  pairs  of  "-x,  y"  values  in  the  projected  film 
frame  coordinate  system.  This  was  chosen  to  simplify  the  reading 
since  the  cameras  at  stations  11  and  12  were  rotated  onto  their 
left  sides  to  improve  the  field  of  view. 

The  PSC  model  PVR  is  constrained  to  read  +  x  to  the  ri  :h* 
of  the  operator  and  +y  upward.  Since  the  cameras  at  stations  11 
and  12  were  rotated  to  their  left  sides,  the  operator's  view  of 
the  film  frame  was  as  illustrated  in  Figure  29.  Thus  with  the 
PVR  programmed  to  digitize  Frame  Number  and  four  pairs 
x  values,  the  net  result  was  the  format  presented  above. 

The  first  line  of  readinus  (15,  8F7.0)  contained  the 
frame  number  and  four  "-x,  y"  film  frame  coordinates  of  fi  .ed 
reference  points.  The  first  format  "5X,  8F7.0/"  contained  the 
repeated  frame  number  { 5 X )  and  four  pairs  of  film  frame  coordinates 
(-x,  y)  of  the  suprasternal  notch,  lower  sternum,  R.H.  clavicle 
and  L.H.  clavicle  fiducials.  The  second  format  "5X,  8F7.0"  con¬ 
tained  the  repeated  frame  number  and  four  pairs  of  film  frame 
coordinates  (-x,  y)  of  the  R.H.  pelvis,  L.H.  pelvis,  R.H.  eye, 
and  nose  fiducials. 

For  camera  stations  13  and  14  the  data  points  were  digi¬ 
tized  to  punched  paper  tape  in  the  format  (15,  8F7.0/5X,  SF^.O) . 

For  these  views  the  PGC  PVR  was  programmed  to  punch  the  coordinate 
pairs  in  "x,  y"  format  since  camera  13  was  mounted  upright  and 
camera  14  was  inverted. 

The  first  line  of  readings  (15,  8F7.0)  again  contained 
the  film  frame  number  and  pairs  of  x,  y  readings  of  four  fixed 
reference  points.  The  second  line  ( 5 X ,  8F7.0)  contained  the  re¬ 
peated  frame  number  and  the  readinq  of  the  coordinates  of  the  T1 
fiducial  read  four  times.  This  was  done  to  satisfy  the  require¬ 
ments  of  the  preprogramming  of  the  PVR  and  input  rormat  to 
Program  SLED. 
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The  operator's  view  of  the  projected  images  of  films 
from  cameras  13  and  14  is  illustrated  in  Figure  30. 

3. 2. 4. 3  Electronic  Data  Processing 

Electronic  data  processing  required  a  sequence  of  related 
operations  which  could  be  broadly  broken  down  into  the  areas  of 
data  preparation,  computation  and  plotting,  and  review  of  results. 

Three  computer  programs  were  required  to  achieve  the  re¬ 
sults.  Program  POOCH  was  used  to  determine  the  apparent  location 
and  orientation  of  each  of  the  four  cameras.  Program  SLED  was 
employed  to  solve  for  the  most  likely  point  of  the  intercept  in 
the  three-dimensional  SCS  of  rays  from  each  pair  of  cameras  to 
each  tracked  point.  Program  WBRL  was  employed  to  calculate  time 
histories  of  smoothed  coordinate  positions  of  each  of  the  tracked 
points,  smoothed  component  and  resultant  accelerations  of  each 
of  the  tracked  points,  and  orthogonal  projections  of  the  relative 
positions  of  the  right  lateral  orbital  rim  fiducial  and  the  nose 
fiducial . 

The  results  of  these  calculations  were  printed  on  hard 
copy  and  written  on  magnetic  tape  for  offline  plotting. 

Programs  POOCH  and  SLED  are  described  in  detail  in  AMRL- 
TR-78-94  "Photometric  Methods  for  the  Analysis  of  Human  Kinematic 
Responses  to  Impact  Environments." 


Data  Preparation:  Preparation  of  data  for  input  to  pro¬ 
gram  POOCH  required  digitization  of  projected  image  coordinates 
of  each  of  the  fixed  reference  points  and  transcribing  these  values 
together  with  the  measured  coordinates  in  the  SCS  of  the  points 
into  tabulating  cards.  The  approximate  measured  coordinates  in 
the  SCS  of  the  focal  point  of  the  camera  and  the  nominal  focal 
length  of  the  lens  were  also  transcribed  to  accounting  cards. 

These  cards  were  then  merged  with  system  control  cards  and  the 
binary  program  cards  and  transmitted  to  ASD/AD,  Bldg.  676,  WPAFB 
for  processing. 
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Processing  of  projected  image  coordinates  to  t.nroe- 
dimensional  positions  in  the  SCS  required,  in  addition  to  the  d.  .- 
tized  readings,  location  and  orientation  data  for  each  of  the 
cameras,  reference  fiducial  table  as  seen  by  each  camera,  and  a 
film  frame-time  equivalence  table.  Cards  containing  these  data 
were  punched  and  merged  with  the  required  system  control  carts 
and  were  submitted  to  ASD/AD  for  processing  with  program  SLFD. 

The  tables  and  plots  output  by  program  SLED  were  reviewe 
for  apparent  gross  errors.  When  none  were  observed,  the  card  til 
punched  by  program  SLED  were  merged  with  system  control  cards  an: 
submitted  to  ASD/AD  for  processing  to  smoothed  time-SCS  coordmat 
velocities  and  accelerations  by  program  WBRL  which  is  presented 
in  Appendix  A.  Tables  and  plots  generated  by  program  WBRL  are 
presented  in  Appendices  B  through  N. 

Computation  and  Plotting:  These  functions  were  accom¬ 
plished  on  the  CDC  systems  at  ASD/AD.  The  programs  used  have  Let 
previously  referenced,  however  it  is  well  to  note  that  the  proura 
WBRL  calls  subroutines  from  the  system  library  to  prepare  and  wr: 
the  tapes  used  for  offline  plotting. 

Review  of  Results:  The  coordinate  solutions  calculated 
by  program  SLED  from  the  projected  images  of  films  from  cameras 
11  and  12  resulted  in  smooth  time-displacement  curves  for  the  y 
and  z  components  but  were  very  erratic  for  the  x  component.  Due 
to  the  shallow  angle  between  the  optical  axes  of  these  cameras 
(approximately  19.8  degrees)  even  slight  reading  error  resulted 
in  large  fore  and  aft  errors  (x  coordinates).  These  errors  bom:; 
even  more  magnified  in  the  differentiation  to  x  components  of 
velocity  and  acceleration. 

A  statistical  analysis  of  the  miss  distances  between  the 
rays  constructed  from  both  cameras  at  the  solution  points  was 
accomplished  by  program  SLED.  The  values  of  mean  error  and  stan¬ 
dard  deviation  from  the  mean  calculated  for  each  of  the  tracked 
points  for  each  test  is  tabulated  at  the  start  of  each  of  the 
data  results  appendices.  The  mean  error  and  standar  : 
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from  the  mean  for  the  tracked  points  for  all  tests  considered 
are  presented  in  Tables  2  4  and  25. 

The  above  data  indicated  that  the  SCS  solutions  for  the 
T-l  fiducial  were  relatively  poor.  The  high  standard  deviations 
for  this  point  may  be  due  to: 

1.  Refraction  of  rays  passing  through  the  seat  back 
window . 

2.  Glare  from  both  window  and  fiducial  as  the  seat 
traveled  past  individual  lamps. 

3.  Angle  between  the  surface  of  the  fiducial  and  the 
ray  to  camera  14  was  very  small. 

In  general  the  fiducial  surfaces  were  very  reflective  and  diffi¬ 
culty  was  experienced  with  recognizing  the  centers  of  all  at 
various  times  throughout  the  tests. 

Calculated  values  of  velocity  and  acceleration  were 

probably  degraded  as  a  function  of  frequency.  A  study  by  Mr. 

Mohlman  of  error  induced  by  smoothing  displacement,  velocity,  and 

acceleration  data  with  a  moving  quadratic  arc  fit  to  eleven  points 

2 

will  soon  be  published.  The  study  was  based  in  part  on  the 
analysis  of  sinusoidal  displacement  data  sampled  at  2  millisecond 
intervals.  The  sinusoidal  frequencies  analyzed  were  varied  from 
2  Hz  to  35  Hz.  The  results  of  this  portion  of  Mr.  Mohlman's 
study  were  presented  in  Figure  21  and  Table  20. 
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TABLE  25 

ANALYSIS  CF  MISS  DISTANCE  BETOKEN  LAYS  AT  SOLUTION  POINTS, 

MANIKIN  SUBJECTS 


Number  of 

Points 
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( inches) 

r  l  or.  Mi‘. 
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3363 

.060 

.057 

Lower  Sternum 
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H .  Jlavicle 


3  36  3 


08  r 


SECTION  4 

PICTOGRAPHIC  PRESENTATION 


A  need  was  seen  to  exist  for  a  method  of  presenting,  in 
a  comprehensive  manner,  the  sequential  relative  displacements  of 
body  segment.;  as  they  respond  to  impact  inputs .  Program  RSD  was 
developed  to  process  data,  digitized  from  selected  frames  of  motion 
pict  .  .  reeor  lings  of  laboratory  simulations  of  -G  impacts,  to  a 
series  or  si;;  time-incremented  pictograms  of  body  segment  positions 
and  restraint  harness  strap  displacements  relative  to  the  seat. 

This  process  was  developed  f-„r  the  Biomechanical  Protec¬ 
tion  Branca  of  the  AF  Aerospace  Me dice  l  Research  Laboratory 
(AMRL/BBP)  located  at  Wright-Patterson  Air  Force  Base  (WPAFB) , 

Ohio . 

It  was  developed  to  minimize  the  manual  effort  required 
to  convert  digitized  data  to  plotted  pictograms.  The  processing 
program  is  written  in  FORTRAN  language  and  utilizes  library  rou¬ 
tines  av; .liable  on  the  CDC  computer  systems  at  Aeronautical  Systems 
Division’s  Digital  Computation  Facility  (ASD/AD)  at  WPAFB. 

4.1  PROGRAM  RSD  INPUT  REQUIREMENTS 

This  section  describes  the  content  and  format  of  the  data 
required  to  execute  the  program  RSD.  This  program  draws  six  graphs 
on  the  CALCOMP  plotter  which  show  the  position  of  the  head,  shoulder, 
elbow,  wrist,  hip,  knee  and  ankle  at  six  time  points  during  the 
test.  The  six  graphs  are  plotted  on  a  report  size  page  (6-1/2  by 
9  inches . 

Execution  of  the  program  RSD  requires  the  CCAU  and 
CCPLOT1036  CALCOMP  plot  libraries.  The  CALCOMP  plot  output  file 
is  written  on  file  TAPE7 . 
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sr 


The  first  eight  cards  described  below  define  the  test 
parameters  and  the  remaining  six  sets  of  six  cards  each  define 
the  input  data  at  the  six  time  points.  The  variable  names  used 
in  the  program  are  included  with  the  data  description.  All  re¬ 
ferences  to  the  y  axis  in  this  text  and  in  the  program  source 
listing  (Appendix  C)  should  be  interpreted  as  the  chair  z  axis. 


Card  Number  1  --  Title  Card 


Columns 

Format 

Variable  Name 

Description 

1-60 

6A10 

TITLE 

Title  or  caption  printed  below  the 
set  of  six  graphs.  This  title 
should  be  centered  in  the  60  column 
field. 

Card  Number  2  -- 

MISC.  data  in 

inches 

1-  5 

Card  ID,  —  not  read  ' 

by  the  program 

6-12 

F7.0 

DPS 

Distance  between  Lexan  panel  and 
seat  side  planes 

13-19 

F7.0 

DSC 

Distance  from  seat  side  fiducial 
plane  to  seat  center  line 

20-26 

F7 . 0 

DPF 

Distance  between  fiducials  on 

Lexan  panel 

27-33 

F7.0 

DSF 

Distance  between  seat 

side  fiducial, 

34-40 

F7.0 

XSB 

x  shoulder  belt 
attachment  point 

41-47 

F7.0 

YSB 

y  shoulder  belt 
attachment  point 

48-54 

F7 . 0 

XLB 

x  lap  belt  attach¬ 
ment  point 

relative  to 
seat  origin 

5  5-61 

F7.0 

YLB 

y  lap  belt  attach¬ 
ment  point 

62-68 

F7 .0 

XASSF 

x  aft  seat  side 
fiducial 

69-75 

F7.0 

YASSF 

y  aft  seat  side 
fiducial 
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Card  Number  3 


—  Breadths  across  f  iu.ici-is  ;  t : .  be  Hue/, 

data  are  in  counts. 


Col  urn 

ns  Format 

Variable  Name 

Description 

1-  5 

Card  ID 

6-12 

F7.0 

BAF ( 1 ) 

Hip 

13-19 

F7 . 0 

BAF (2) 

Knee 

20-  3b 

F7 . 0 

BAF ( 3 ) 

Ankle 

2  7-33 

F7 . 0 

BAF ( 4 ) 

Shoulder 

3  4-40 

F  7 . 0 

BAF ( 5 ) 

E 1  bow 

4  1-.4  7 

F"7 . 0 

BAF ( 6 ) 

Wrist 

4  8  -  "  4 

F7 . 0 

BAF ( 7 ) 

Traceor. 

5  5-61 

F7 .0 

BAF (8) 

Nose 

6  2-63 

FT  .  0 

BAF ( 9 ) 

Harness  lap  buckle 

69-75 

F  7 . 0 

BAF (10) 

Shoulder  harness 

Card 

Number  4  -- 

Panel  and  seat 

fiducial  data  ir  counts. 

1-  5 

Card  ID 

6-12 

F7 .0 

XPF 

x  Lexan  Panel  FAD  r  faucial 

13-19 

F7.0 

YPF 

y  -  Lexan  Panel  FWD  fiducial 

20-26 

F7 . 0 

XPA 

x  ~  Lexan  Panel  AFT  fiducial 

->  7  _  ^  2 

F7 . 0 

YPA 

y  -  Lexan  Panel  AFT  fiducial 

34-40 

F7 .0 

XSF 

x  -  Seat  Side  FWD  fiducial 

41-47 

F7 . 0 

YSF 

y  Seat  Side  FWD  fiducial 

48-54 

F7 . 0 

XS  A 

x  ~  Seat  Side  AFT  fiducial 

5  5-61 

F7 . 0 

YSA 

y  ~  Seat  Side  AFT  fiducial 

5  to  7 


x,  y  coordinates  used  to  compute  radii  of 
body  elements  (in  counts). 


'  ir  i  Numbers 


Curd  Number  5 


v.V)  i  am  ns 

Fo rma  t 

Variable  Name 

Description 

1-  5 

Card  ID 

6-12 

F7 . 0 

XI  (2) 

x  -  First  knee  point 

13-19 

F7 . 0 

Y1  (2) 

y  -  First  knee  point 

20-26 

F7 . 0 

X  2  (  2  ) 

x  -  Second  knee  point 

27-33 

F7 . 0 

Y2  (2) 

y  -  Second  knee  point 

34-40 

F7 . 0 

XI  (3) 

x  -  First  ankle  point 

4  L-47 

F7 . 0 

Y1  ( 3 ) 

y  ~  First  ankle  point 

48-54 

F7  .C 

X2  (3) 

x  ~  Second  ankle  point 

5  '•  -  6 1 

F  7 . 0 

Y2  (3) 

y  -  Second  ankle  point 

Card  Number  6 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  shou^uer 
[XI (4),  etc.)  and  the  elbow  [xl (5)  etc.]. 

Card  Number  7 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  wrist 
[XI (6) ,  Y1 (6) ,  etc. ] . 

Card  Number  8  --  Trageon  and  eye  points  required  to  compute  the 

angle  between  the  Trageon-Nose  line  and  the 
head  z-axis  (in  counts). 

1-  5  Card  ID 


6-12 

?7 . 0 

TX 

x  ~  Trageon  point  - 

13-19 

F7 . 0 

TY 

y  -  Trageon  point 

measured  when 
the  head  z- 

20-26 

F7 . 0 

EX 

x  -  Eye  point 

axis  line  is 

27-33 

F7 . 0 

EY 

y  ~  rye  point 

vertical 

(Note  that  the  head  and  hip  radii  are  computed  using  the  center 
points  from  the  0  frame  readings) . 
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Film  Data  -  the  following  six  cards  are  required  for 
each  of  the  six  plots. 


Card  Number  1  -- 

Time  in 

milliseconds  for  this  set  of  film  data 

Columns 

Format 

Variable 

Name  Description 

1-  5 

ID 

or  frame  number  (e.g.  TIME  = 

6-  8 

A3 

ITM 

Time  in  milliseconds 

Card  Number  2 

1-  5 

15 

Frame  number 

6-12 

F7.0 

XSFF 

X 

~  Seat  forward  fiducial 

13-19 

F7.0 

YSFF 

y 

~  Seat  forward  fiducial 

2(. -  26 

F7.0 

XAFF 

X 

~  Seat  aft  fiducial 

27-33 

F7.0 

YAFF 

y 

~  Seat  aft  fiducial 

34-40 

F7.0 

X(l) 

X 

~  Hip  center  point 

41-47 

F7.0 

Y  (1) 

y 

~  Hip  center  point 

48-54 

F7.0 

X  ( 2 ) 

X 

~  Knee  center  point 

55-61 

F7.0 

Y  ( 2 ) 

y 

~  Knee  center  point 

Cards  3  through  6  have  the  same  format  as  Card  Number  2  above; 
they  contain  the  x  and  y  coordinates  of  the  center  point  for  each 
variable.  The  number  in  parenthesis  is  the  index  of  the  x  and  y 
arrays . 

Card  Number  3 :  Ankle (3),  Shoulder (4),  Elbow (5),  and  Wrist (6). 

Card  Number  4:  Trageon(7),  Nose(8),  Lap  Buckle(9),  First  Shoulder 
Harness (10) . 

Card  Number  5 :  Next  four  Shoulder  Harness  points  (11  to  14). 

Card  Number  6 :  Last  two  Shoulder  Harness  points  (15  and  16). 

(Note  that  the  seven  shoulder  harness  points  are  assumed  to  be 
Listed  in  sequence  from  the  buckle  to  the  top  shoulder  point; 
that  is,  with  increasing  y  values.) 


4 . 2 


FILM  DIGIT!'  T  ING  PROCEDURE 


The  title  to  be  printed  below  the  pictograms  bird  1,  was 
manually  entered  via  the  ••era. 

Th-.  "  :t  jo  ••  •••/  ;  -  .  jut  red  (Card  2:  we  r .  :e  :.iy  en- 

t ere  :  via  th e  fci ■ 

The  values  of  b:  eadths  across  fiducial s  (Cate,  i  .•  were 
manually  entered  via  the  keyboard.  BAF ' s  1  thru  6  were  obtained 
from  ..  .•  pretest  measurements  form.  BAF' s  9  and  lr  w--»*e  considered 
to  be  constant,  the  shoulder  strip  center-center  *.:  i.;  r  anc<  being 


6.38  inches  at  the  si 

.naie  tree  ana  i  j 

...neh  just  abcon 

o.ickio 

Loops.  The  distances 

between  a  or  c-rs 

of  the  siici.i.o; 

traps  .-.ere 

mean  .red  prior  to  soy 

era!  t'stb  t  .*;  he 

constant  with 

i 

from  the  s inale  tree 

to  the  v’  ..  1  s  , 

,  f  ;  i  f*  *;■  *'  * 

sidered  to  be  parallel  •*•■  v  •  *  r  hat  sp  <  -  • ::  :  . 

The  film  rev  -r  :•  ,  n  *''  .  :  ...  ■  .  I  1 1  •  "ted 

on  the  i-rodn  ••  rs  •  •  :  i  'it:*  .  Mr  lei  ■  "e  a.  .*.  .  . 

The  film,  was  trine:,  .f.  .  e:.:;l  the  frame  in  which  .tr*:.e  flash 

was  first  observe  ;  ..  ..  ..r  ■  -ctod  vd  ‘ho  frame  co  inter  ■  reset 

to  zero .  The  f  i  !  was  transported  forward  in  the  sir.  do--  bine- 

mode,  the  operator  noting  the  frame  numbers  at  which  *  he  inirih, 
eighth,  twelfth,  sixteenth,  md  •  went  ieth  h.OI  sec~:.  ■  :  .  c:  no  raises 

appeared.  The  number  .of  f  rime  a  t:  i*  he  aatr.  :*•  !  n,  li  .placed 

from  frame  zero  was  subtree*-*  i  r  r  each  o '  ti.n  :  numbers 

to  determine  the  :  ru  "vs  f  •**>:'  "  ‘a 

The  film  was  transpor*  t oacK.ward  while  :  t  :••■•»':  c  jj  ob¬ 
served  the  changing  attitude  ..  •  •.**  subject '  h-  ; .  Lr.e  *.umt  or 

of  the  frame  in  which  the  head  appeared  to  be  erect  was  not  •  d 
Identification  of  this  frame  is  strictly  subjective,  !.r*we--..:  ,  rhe 
error  resulting  from  this  judgment  remains  cons*  v  •  t  : 
the  processing  of  data  from  each  test. 


After  the  film  had  been  returned  to  frame  zero  the  pro¬ 
jected  image  coordinates  of  the  reference  fiducials  on  the  lexan 
panel  and  the  side  of  the  seat  pan  were  digitized  in  the  order 
specified  in  the  format  for  Card  Number  4. 

Two  points  were  read  at  each  of  the  joints  on  the  subject's 
left  arm  and  leg  in  the  order  specified  in  the  formats  for  Cards 
5,  6,  and  7.  These  points  were  digitized  to  define  the  diameter 
of  the  circles  representing  the  joints  on  the  pictograms.  The 
ankle  of  the  subject  was  not  in  the  field  of  view  at  frame  zero, 
so  the  film  was  transported  to  a  frame  in  which  it  was  visible. 

The  readings  of  the  ankle  points  were  read  and  a  tracing  was  made 
in  black  ink  on  clear  acrylic  sheet  of  the  fiducials  on  the  ankle, 
knee,  and  intermediate  point  on  the  lower  leg.  The  tracing  also 
included  the  outline  of  the  shin.  This  overlay  was  later  used  to 
locate  the  ankle  fiducial  when  it  was  outside  the  field  of  view. 

The  film  was  transported  to  the  frame  noted  as  tl  one 
in  which  the  head  was  erect  and  the  coordinates  of  the  fiut  iols 
at  the  trageon  and  nose  were  digitized  as  specified  in  the  format 
for  Card  Number  8. 

The  film  was  returned  to  frame  zero.  At  this  ^uint  it 
is  well  to  note  the  possibility  that  on  some  films  tie  synchronizing 
flash  can  be  bright  enough  to  wash  out  the  images  of  some  of  the 
fiducials.  Had  this  occurred,  time  zero  data  would  have  been 
digiti  r;d  from  frame  -1  (99999  on  counter)  . 

Time  after  initiation  (msec)  was  entered  manually  via  the 
keyboard  as  specified  in  the  format  for  Film  Data  Card  Number  1. 

The  coordinates  of  the  projected  images  were  digitized  in  the 
order  specified  in  the  formats  for  Film  Data  Card  Numbers  2  thru  6. 
All  points  on  the  seat  and  the  subjects  were  defined  by  the  fidu- 
ouls  with  the  exception  of  the  shoulder,  the  elbow,  and  the  wrist. 
As  the  arm  elevated,  the  arm  segments  demonstrated  rotary  motion 
tins  i  the  fiducials  on  the  elbow  and  wrist  to  rotate  forward 
:  *•*  1  i'ivv  to  the  image  of  the  arm.  (Dummies  with  pinned  joints  do 
lemons  t  rate  this  rotation).  At  the  shoulder,  elbow  and  wrist 


1  9  0 


the  points  digitized  were  the  estimated  geometric  centers  of  the 
images  of  the  joints. 

The  first  point  digitized  on  the  harness  was  the  center 
of  the  buckle.  The  second,  third,  and  fourth  points  ^ere  digize: 
upward  along  the  left  shoulder  strap  between  the  buckle  and  the 
clavicle.  The  fifth,  sixth,  and  seventh  points  were  diaitized 
upward  (rearward)  along  the  left  shoulder  strap  between  the  c  1  a 
icle  and  seatback. 

4.3  RESULTS 

The  pictograms  generated  by  the  test  case  are  illustrated 
in  Figure  31 .  The  format  and  the  presentation  of  the  body  segment 
positions  appear  to  accurately  reflect  the  projected  images  in  the 
film  frames  from  which  the  data  were  extracted.  Tht  projection 
of  the  shoulder  strap,  as  plotted,  does  not  accurately  reproduce 
the  observed  path  of  the  strap.  A  need  to  review  the  techniaue 
used  to  digitize  the  strap  data,  and  to  improve  the  method  of 
fitting  a  curve  to  the  data  is  indicated. 
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APPENDIX  A 
PROGRAM  HIFPD 


I 


PROGRAM  nlF  =  aaNPUT,OUTPUTtT&Pt5.-tNnUT,IAPEt-  =  nLlflJT,Tflcf7)  Q  001 0  0 

JI  hens;  ON  RES<  30  2  >  ,  VEl  <  3w2)  ,HS<3C^>  ,»h(KC'  , NS? (3*2)  .nnk  (  JO?)  ,  Q0012G 
1  MEAOL < 8) ,H£AOR< 8) ,hEAOC <8' , OATAI 1024) ,  YNPP  (  3  I  .  •  nPi  (  J)  030140 

2,  /«  (  20  21  ,  1/2(3  0?)  ,  AX(  3C2)  ,A?<  3  02.'  000150 

Cn«MON  JO, JR,  NN  ,NP  ,NC1,NC2  ,XX  (  332 ,6)  ,  22  r  3C  2  ,  b)  ,  ILAUf.  ,  00G160 

;  IF?  (  TP2)  ,X  (302,  f  )  ,  7  (302 ,8  )  ,  ID  (  a  2  >  ,  IP  (12)  ,ACC  (  TO  2  ■  ,  0C0180 

TAOC:,  (30  2),  CAu  t  8)  ,  XD(  30  2)  ,  ZC  (302)  ,1  (30?  ,  ,01  (  3C2)  ,DC<3C2>  000200 

C  0  NN  ON  /CPLTC/  HEADL  .TITLE  (10  >,  IRx,  QYLP  300220 

F  Q'JI  VAL  ENCE  (RES(l).WS(l)  ,01  (1>>,  (OEL(1)*mh(1)  ,OCill  )  ,  'ACT(l)  ,HS2(0D0240 
11 1  ) ,  (ACCG (1)  , MH2  (  1) )  000260 

r,  (  XX  (1, 1)  ,VX<  1)  )  ,  t  XX  (1 ,2)  ,  AX  (1)  )  ,  (ZZ<1, 1.)  ,  VZd)  )  ,  IZZ  (1, 2)  ,AZ  (1)  )  0002^0 

DATA  END  J/lOrtE  NO  /,  YNPR/3HY£S,3HYES,3H  NO/ , YNPl/ 7H YES, 3h  N0000280 

1 ,3H  NO/  000300 

OATA  HFA0R/9H  RANGE, 9h  SLE0.9H  hjp.Sh  KNEE,  000320 

1  9H  SHOULDER, 9h  ELGON, 9HHEAD  PT  1, 9HHE  AD  PT  2/,  000340 

2  HEADL/5HRANGE,4HSLED,3HHIP,4HKNEE,8HSH0ULDER,5HEIB0W,9HHEAD  PT  1000360 

3,  9MHEA0  PT  2/,  000380 

4  h£ADC/7h  RANGE, TH  S1ED.6H  HlP,7h  KNEE , 9 H  ShQULDEO 0 04  0 0 


5«,7)<  ELBOW, 9Hn£A0  PT  1 , 9 H HE  AT  pT  2/ 


HVGE  IMPACT  FACILITY  PHOTOMETRIC  DATA  ANALYSIS  pROGR  A “ 


000420 

•000440 

•000460 

000460 


. . . . 

w 

000520 

r • 

parameter  name 

VERSUS  ID  COOE 

000540 

c 

CODE 

NA-E 

000560 

c 

000580 

c 

1 

RANGE 

000600 

z 

2 

SLED 

000620 

c 

3 

HIP 

000640 

c 

u 

KNEE 

000660 

c 

5 

SMOULDER 

000680 

c 

6 

ELSOM 

000700 

3 

7 

HEAD  PT  1 

000720 

c 

8 

HEAD  PT  2 

000740 

r.»  .......... 

000760 

IRX  =  t  — 
I  RX=  1  — 

I T  YPE  =  0 
I T  YPE  =1 

IPR<1  -> 

I  CA  M  =  0  - 
ICAH=1  - 

I A0J=0  - 
I AOJ-1  - 


IPL  =  C 


no  x-axis  Change 

CHANGE  POLARITY  OF  X-AXIS  DATA  (MULT.8Y  -1.0 

READ  AND  PROCESS  ALL  8  PARAMETER. 

READ  AND  PROCESS  ONLY  PARAMETERS  1,  2,  7  AND  8. 

PRINT  RAM  DATA  IN  COUNTS 

CAMERA  IS  NOT  ON  THE  SLED 

camera  is  on  the  sled:  translate  and  rotate  data. 

NO  X  OR  2  ADJUSTMENT  READ  OR  APPLIED, 
y AO J  ANO  ZAO J  are  READ  AND  ADDED  To  AL.  X  AND  7  DATA 
9EF0RE  ANY  TAB  OUTPUT. 

prtnt  and  plot  linear  vel  and  accel  data 


•000800 
000820 
000840 
000860 
000880 
000900 
0069ZC 
000940 
000960 
000980 
0010  00 
0  CIO  20 
801040 
001060 
0  C 10  80 
001100 
001120 
001140 


1 


ipi  -i  — 

.  IMh.  w 

.  w 

A 

.«  UCt  w  ; A  .  c 

V  U i  1  b  0 

c 

IPL-?  ■  — - 

uMi ",  i 

A  K 

*  C  C  E  L  J  A  7  i 

j : :  i  t 

z 

0  i  1  J  0  k. 

z 

i  P  A  =  L 

h’KlN  f 

A  Ml  PLUl 

A 

N^» 

JLaW  Vli  AMI) 

A  C  C  E  .  ji  i  A 

0  Ul2. 0 

c 

I  PA  =  1 - 

►>RlNT 

A  NbUL  A  " 

ve 

! 

AKi.  ACC  t  J  A 

A 

D  0 1  ?  -  C 

c 

;pa=2  — 

OMIT 

A  NoUl  Ak 

V  6 

A  rij  ACCFl  'Jl  i 

A 

J  w.  1  2  K  . 

c 

o  c  i : a  o 

c 

I  p  c  :  ;  -  — 

°Rl  Ml 

an  C  *■  l  .  T 

► 

t  T 

A  ►  f  .  I  £  >  7  E  ■*  j  H 

Ril  w  J  *  ■  i 

IPC=1  — 

*-  R I  f 4 1 

PUfc  AHh  i  ^ 

vE 

►’*.  J  ‘J..  c  ..  A  T 

G  ,  1  •  J  . 

c 

■■  PC  - 1 

OMIT 

ft  fcft  A  \Z  »  £ 

v; 

‘■V.1'  .i  . 

o  a  i  s  u 

c 

Du;cF,r 

r 

■J  ISRLAi’Em- 

NT  ,  VE 

a  ■  ~  a  r 

c  * 

i. 

MATA  A*r  Cf.Mft 

.  J  i  L  l!  -  lp~  -  M 
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c 

IRlI) - DJNTAINS  REFER')...:  I OE  n  r  CODE 

001-80 
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0  Clc  0  0 

c 

TITLE  (1)  C  C  NT  A  i  NS  THE  DATE 

001S20 

c 

TITLE<25  ---  CONTAiNE  ME  TEST  num-jEk 
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GjICUO 
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H 

-  Vt^SUC 

0  G  1  h  b  0 

L/ 

SLEO  f-LOT,  «  REDE  :  I  NET.  AFTER  INPUT) 

DCioH 

c 

JR  - —  FRAME  NUMBER  OF  .AST  FRAME  PLOTTED  OH  PAAAM- 

7  ; 

ft  v£*«  S  !$ 

n  c  1 7  j  r 

3 

SLED  f>l  OT .  (REDEFlner  AFTER  INPUT: 

0S172C 

c 

CALL  PLOTS(OATA,102L,n 

3  01/RC 
0  D 1  7  ^  C 

c 

MAXN  IS  THE  MAXIMUM  NUMBER  OF  FRAMES  RHICH  CAN  BE  PROCESS; 

C 

HI  T  m 

001780 

c 

ABOVE  ARRAN  DIMENSIONS. 

0 . 1  8  G  0 

c 

MA  XN  =  If  0 

0  01  8  20 

MA  XNs 30  2 

ooi?-r 

Cl  =-  1.  0E10 

a  JlBoG 

CAL ' 1) =0. 0 

0  0  1 »  8  R 

ICAL  (1)  =1 

Jul^C' 

•'?  =3.141552. 

ooip?; 

PI  2"-  2.  (  *c  I 

oripRP 

PI  3V  =  3.  C*PI  'R.  0 

3  RlPfe i 

r 
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NP  =  11 

3  0  2  0  v’ 

c 

0  1  2  0  ?  F 

c 

READ  TLSf  SETUP  mRDS. 

G  j2C  - : 

c 

TITLE ii)  contain:  The  Q)Tl. 

0  G20  f 

o ;  2  u r 

READ  (5  ,  1010)  T  T  Tl  E  ( 1>  Ji’Ii: 

5  PEAO  (5,1310)  (TITLE  (I ‘  =3.  1C  -  3  C  ^  i  r 

IF  (  TIT  L  E  ( 3 )  .EG.  ENIJJ)  Gr  T  C  “OQ  G321-r 

READ  (5,1005)  NP1,NP?,J0,JP  ^OClfcl 

IF  (  NP 1  .l_T.  31  N  P 1  =  11  00?1“C 

IF  (NP?  .lT.  3)  N  P  2-  11  .02.. c 

3  fizrn 

o  : 


i 


TITlE(2)  CONI  A I N  S  CHE  TEST  number 


READ (5,1030)  TITLE (2) , IRX , IPR , ITYPE , IPL , IC AH, 
1  (10(1)  ,IR(I)  ,1*1,12) ,NP, DYLP 
IF  (NP  .LT.  3)  NP*11 

IF  ( I  AD  J  .GT,  0)  REAO(5,1020)  XADJ.ZADJ 
READ ( 5, 1020)  OT.(CALIJ) ,J=2,8> 

IF  (JO  .LT.  1)  JO*l 
IF  (JR  .LT.  1)  JR*999 
WRITE (6,2501)  TITLE, NP 
IF  (IAOJ)  440,440,450 
)  I  AD J  =  0 
GO  TO  455 
1  I A  D  J  *1 

3  IF  (ICAH)  460,460,465 
B  ICAN>0 
GO  TO  470 
5  ICAN*1 

)  IF  ( IRX)  400,400,490 
B  IRX*0 
GO  TO  495 
3  IRX=>1 

5  IF  (IPR)  500,500,505 
B  IPR=C 
GO  TO  510 
5  IPR=1 

0  IF  (IPL-1)  515,525,520 
5  IPL-0 
GO  TO  525 
B  IPL=2 

5  IF  (IPA-1)  530,540,535 
B  IP  A=  0 
GO  TO  540 
5  IPA*  Z 

l>  IF  (IPC-l)  545,560,550 
5  IPOO 
GO  TO  560 
i  IPC*2 
3  1  =  1 
IFLA  G=0 
NC1=1 
NC2=999 
IFRQ*“100 

IF(OT)  565,565,570 
5  OT»5CO.fc 

S  IF  (ITYPE)  575,575,580 
5  ITTPEsO 
J1  =3 

GO  TO  It 
0  ITYPE*1 
Jl«7 

5  RE  AO  (5, 1000)  ICO ,  IFR  (I )  ,  ( X  (I ,  J)  ,  7  { I  ,  J)  ,  J*i  ,  2 ) 
1) 

00  590  J*3,6 
XU,J>*0.0 
3  Z(I,J)*0.0 


802260 

IPA,IAOJ,IPC, JO, JR, M, 002280 
002300 
002320 
002340 
002360 
802388 
002600 
852420 
002440 

00246 C 
002460 
052500 
002520 
002540 
002560 
002580 
002600 
002620 
002640 
002660 
302660 
002700 
002720 
032740 
002760 
002780 
002800 
002820 
002840 
002860 
002880 
002900 
002920 
502940 
002960 
002980 
003000 
003020 
003040 
00306 C 
003080 
0  031 0  C 
003120 
003140 
003160 
003180 
003200 
003220 
003240 

,  IX  (I,  J)  ,Z  (I  ,  J)  ,8  =  7,8063260 
003280 
033300 
003320 
003340 
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IF  (ICO-l)  595,595,100 
595  IF  (IFR(I)-IFRO)  600,600,610 
600  WRITE  ( 6 , 2  M10)  IFR(I) 

IFLA6=1 

610  IFRO=IFR(I) 

GO  TO  MC 

FROM  HERE  TO  LABEL  1151  READ  A  MAXIMUM  OF  *HAXN*  FRAMES  OF  :  ,.P; 

10  REA0<5, 10001  ICO, IFR(I) ,  (X  (I  ,J>  ,Z(I,J)  ,  J*1,M) 

FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  DATA  I 
IF  (ICO-11  15,15,100 

IF  (ICO-1)  100,15,100 
15  IF  ( IFR  { II  — IFRD)  20,20,25 
20  WRITE<6,2M10)  IFR(I) 

IFLAG=1 

25  RE  AO  <5,10001  ICO ,  IFRO,  <  X  <  I ,  J 1  , 2  <  I ,  J>  ,  J*5 , 8  ) 

FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  DATA  I 
IF  CICD-21  30,30,70 
IF  <  ICO-21  70,30,70 
3C  IF  (IFR(I)-IFROl  35, MO, 35 
35  WRIT£<6,2MOO)  IFR(I) ,IFRO 
IFLAG*1 

**G  Till  =FLOAT<IFRlI)  l/OT 

IF  ( IFR  <I)  .EQ.  JO)  NC 1*1 
IF  < IFR ( I 1  .EQ.  JR)  NC2*I 
AOO  'XADJ*  AND  *ZAOJ*  TO  I-TH  OATA  POI NT  I 
IF  ( IAO J)  55, 55, M2 
M2  DO  M5  J*l,2 

X  <  I,  J)  =X  (I ,  J)  ♦  XADJ 
M5  Z<I,J)=Z<I,J)*ZAOJ 
00  50  J*J1,8 
X(I,J)*X(I,J)*XAOJ 
50  Z 1I,J)*Z (I, J) *ZAOJ 
55  IF  (I-MAXN)  60,60,65 
60  1*1*1 

IF  < ITYPEl  10,10,585 
65  WRITE(6,28M0)  MAXN,IFR(I) 

IF  ( ITYPEl  10,10,585 
70  WRITE<6, 20001  ICO, IFRO 
IFLAG*1 
GO  TO  10 

13C  IF  <  ICO-9)  110,115,110 
110  WRITE<6,2000)  ICO , IFR( I) 

IFLAG=1 

IF  (ITYPE)  lu,10,585 

115  N*I-1 

DTT»<T<N)-T(l))/FLOAT<N-l) 

IF  <  IR  X)  118,118,116 

116  DO  117  1  =  1, N 

oo  117  j*i,e 

117  X  <  I  ,  J)  *-X  (I ,  J) 

PRINT  TEST  PARAMETER  SUMMARY  PAGE. 
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DATA003:  C  ! 
C  4  35  ‘  , 
0  C 35  -  : 

0  .  it  :: 


0  3-,*  , 
o  o  - 1  •  i 
0  0-.:.  1 
c  c  4 1 .  ; 

o  u  4 1  *  r 

0  0  4 1 6 1 

0  J  4 1  r 

r  04?  a  t 

o  i.  - :  -  ■ 

**  <-  l 
0  J  **  2  ®  L 

f  ?  u  .1  ,,  [• 

0  2  **  7  J  l! 

o  r  h  3 1  c 
l  <•*. 1  -  r 
a  c 

0  04m  " 


110 

WRITE  >  o  ,  1  0  0  i  1 1  ,  ■  x  1  ,  m  . 

00XX60 

WRIT*  If,  ,  lilt )  T  1  T  i  -  l  0)  ,N,  0  T,  IF>  ,  I  Trot  ,  I  CAM,  I  AD  J,  IPR,  IPl 

, IPA, IPC, M, O0XX80 

1 

<  :o  ( :  i  , :  p <  1 1  , i  =  i , m) 

00X500 

hr:  t  i2  v  i  t  me  a  pi  hi  ,  t  =  £ ,  s  > 

00X520 

WRITLlb.’lJCi  iCAi  (11,1*2,6) 

00X5x0 

I L'  lltc,  .31.  01  HR!  TE  (6, 213S)  <A0J,7ADJ 

00X560 

HR  I T  E lb  .21X01  ITT 

00x580 

WRIT?  t  o  , 2 15  0 /  n 

00x690 

WRIT  t  I.  ,2 15 5'-  TNPiix-IRm 

00x620 

wkIT  E  >6.2160)  YnPR(IPRM) 

0  uH&hO 

WRIT  t  1  6 , 219  0)  TNOR  <  :  PLxl  ,  ,  YNPl  <  IPs.  ♦!) 

00x660 

WRITElE  ,2180)  TNPR  <  I  PA*1)  ,  TNPL  <  IPAX  1) 

00x680 

WR:rE(b,2170)  TNPR  (IPCxl)  , YNPL ( IPC* 1 ) 

00X70C 

DO  1 3  u  J-2,8 

00X720 

IF  (  ABSTCAuT  J>  )  »  120,125,130 

00X7X0 

120 

CAL ( Jl =1. 0/CAl  ( J) 

0 0x760 

ICAt  (  J)  =1 

00X780 

CO  TO  130 

30X800 

125 

ICAL  (J) -0 

00X820 

WRITE  (6,2820)  HEAOL(J) 

00X8x0 

130 

CONT INUE 

00X860 

WRITE'6,25701 

0  0X860 

IF  (MI  137,137,132 

00X900 

132 

DO  135  K  =  1,M 

00X920 

jo  =  i  d;  o 

00X9X0 

JR=IR (K> 

00X960 

IF  (ICAl.(J0)  .Lt,  1  .OR.  ICAKJR)  ,  Li.  1)  GO 

TO  135 

0  9X980 

WRITE  (6,2210)  N ,  HE  AOL  (  J0>  ,HEAOl  OR) 

0  350  0  D 

135) 

CONTINUE 

0  050  2D 

137 

IF  (IPR'  IX  0 , 1X0 , lb5 

0350X3 

0  D50&C 

PRINT  RAH  INPUT  OATA  IN  COUNTS. 

0  050  B0 

005100 

1  HO 

WRITE (6,2500)  TITLE, NP 

005120 

WRITE(6 ,2550) 

3051X0 

WRIT  E (6 ,2560 )  HE  A  0C 

005160 

DO  1X5  I*1,N 

005180 

1  x6 

WRITE  (6,2  580)  IFR(I)  ,  (  X  1 1  ,  J)  ,2(1,31  ,Jxl,8) 

0  052  J  0 

WRITE  (6,2500)  TITLE, NP 

035220 

WRITE(6 ,2552) 

0052x0 

WRITE (6,2560)  HE AOL 

i)  M52&0 

005280 

COMPUTE  ANfj  PRINT  FRfci.F  TO  FRAME  DIFFERENCES  IN 

COUNTS 

0  05300 

005320 

.. F  (  ITYPE)  1m8,1X8,1X6 

9053X0 

1X6 

DO  l-,7  J  =  3 , 6 

005360 

xn( j)=c. a 

005380 

1x7 

XD ( J)=C. 0 

005X00 

1x8 

00  Itol  I a  2 . N 

005X23 

XO  ll)*X  (I  ,1)-  X  (1-1  ,1  ) 

305XX0 

Z0(l)=7(t,l>-2(I-l,l) 

005X60 

XO(2)=X(I,2)-X(I-l,2)-XL(l) 

005X80 

20  (21=2(1,  2)- Z  (I-i,  2)-  ZD  11) 

005500 

00  153  J-J1.8 

005520 

x0(j)=x(i,j)-x(i-i,j)-x0(i) 

3055X0 

150  ZO( J)=Z (I, J)-ZO(l)  0u556C 

WRITE  (  6  I  2580  )  IFR  ( I )  ,  <  XO  t  J  ) ,  ZD  (  J)  ,  J=1 , 8  )  uVSb'U) 

160  CONTINUE  005600 

C  CONVERT  DATA  FROM  COUNTS  TC  FEET.  005620 

165  IF  (IFLAG)  170,170,167  005640 

167  WRITE(6,250C)  TITLE, NP  005660 

WRITE ( 6 , 2630 1  005650 

GC  T05  q  Q57  n  ~ 

1 7  C  IF  (ICAM)  175,175,650  0  05720 

175  DC  185  1=1, N  005740 

c  005760 

C  HI  AND  H2  ADJUST  DATA  FOR  SHIFT  IN  RANGE  REFERENCE  READING.  005790 

-  005800 

H1=X (I,l)-X(l,l)  005820 

H2  =  Z  ( 1 , 1 ) -2  (1 , 1)  0  0  5  6*0 

X  (  1,2)  =  (X  (I,2)-H1)  *CAL  (2)  0  C566C 

2(1, 2)  =  (2  (I.2I-H2I  *CAl  (2)  0  05*  9  0 

DO  160  J=J1,8  O059C0 

X  ( I  ,  J)  =  (  X  (I  ,  Jl-Hl)  *CAL  (  J)  0  05920 

130  Z<  I,  J)  =  (  2  (I ,  J)-H2)  »CAL  ( J)  0  059*0 

185  CONTINUE  005960 

C  DO  860  NP=NP1,NP2,2  0:5-»C 

GO  TO  695  0  CbO  0  0 

o50  IF  (IPR)  655,655,660  s„b5v- 

655  WRITE (6,2500)  TITLE, NP  uOboI" 

WRITE (6,2540)  0  0  6  0  l  0 

HR  IT  E ( 6 ,2560 )  HEAOC 

C  CALL  SUBROUTINE  'ROTATE'  TO  ROTATE,  TRANSLATE,  AND  CALIBRATE  T-E  006100 

C  ON-BOARD  CAMERA  OATA  (ICAH>0).  C061'C 

660  CALL  ROTATE(N, Jl.IPR)  0361*0 

C  COMPUTE  THE  MEAN  AND  STANOARO  DEVIATION  ABOUT  TmE  MEAN  FOR  SuEO  006150 

C  REFERENCE  OATAI  006151 

695  CALL  MEAN1(N,X(1,2),Z(1,2) )  906160 

N1=(NP-1) 72*1  006190 

N2=N-N1*1  0  062  U  0 

N3=3»Nl-2  3  0 &T  "•  D 

N4=N«N3*1  0062*" 

NN  =N  2—  Nl * 1  OGbCbC 

IF  (IPC4IPA-4)  700,800,800  0062»0 

:  0  06  3  0  C 

COMPUTE  PARAMETEP  VERSUS  SlED  DISPLACEMENTS.  006320 

w  Ci  u  63  u  C 

700  DO  725  J* 3 , 8  0*6360 

U  06  3  8C 

IF  (ICALIJ))  715,715,705  006400 

7u5  DC  7 1  c  1  =  1, N  926*"0 

XD  1 1)  =X  (J  ,  J)-X  (I  ,2)  0  06**: 

710  20  (I  I  =2  (I  ,  JI-2  (I  ,2)  0  06460 

1*1  3*6480 

CALL  SM  !T  ,  XO,  XX  ( I  ,  JJ)  ,  N,  NP)  r  065  0  ii 

CALL  SM <T , 2C, ZZ( I , JJ> , N,NP>  V3b62C 

GO  TO  725  "">65-: 

715  DC  720  I=N1,N?  006C6C 

XX  (I  ,  J  J  )  =  0  .  C  0  2  6550 

022(1, JJ) =0.9  o 0b6 0  0 
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I 


I 


.’25  CONTINUE 

IF  (IPC-1)  728,728,743 
726  LINE =60 

TO  7  4C  I=N1,N2 
IF  (LINE-50)  735,730,730 
730  WRITE (6,2500)  TITLE, NP 
HR  I TE ( 6 , 2  555 ) 

HRITE(6,2565>  (  HE  A  OC  (  J)  ,  J=  3 , 8 ) 

Li  NE  =  0 

L  PRINT  PARAMETER  VERSUS  SLED  DATA. 

7  35  WRIT  E(6,25«5)  IFR  (  I)  ,T  (I )  ,  <X  X  (I  ,  Jjl  ,  Z2  ( I ,  J  J)  ,  J  J- 1 , 6  ; 

LINE  =lI N£  *1 
740  CONTINUE 

IE  (TPC)  742,742,743 

742  IF  ( NCl  .LT.  Nl)  NC1=N1 
IF  ( NC2  .GT.  N2)  NC2=N2 
NN=NC2-NC1+1 

IP  =  1 

C  PLOT  PARAMETER  VERSUS  SLED  DATA, 

CAlL  CPLT <T,OI  ,OC,IP) 

WRIT  E ( b , 2595)  IFR ( NCI)  , IFR (NC2) 

743  IF  (IPA-2)  745,800,800 

C  COMPUTE  ANGULAR  VELOCITT  ANO  ACCELERATION!  HERE  ’O  L A 9 E A  775. 

745  X0(N1-1>=PI 
20  ;ni-d  spi 

IF  (ICAL  <3>  +ICAL  (5>-2)  756,750,750 
750  00  755  I=N1,N2 

H1=ZZ(I,3)-ZZ (1,1) 

H2  =  XX(I , 3 ) —XX (1,1) 

C  SHOULDER  -  HIP  ANGLE 
XO (I ) =  AT  AN2 ( H 1 ,H2 ) 

IF  (XDCI)  .LT.  0.0)  XD  (I )  =  XD  ( I)  +PI2 

IF  (A3S (XO(I)-XO(I-l) >  .GT.  PI34)  X 0 ( I ) = X D ( I) ♦ PI2 

755  CONTINUE 

CALL  0ERIV1(T,X0,WS,N,NP,1) 
call  OERIVKT  ,WS,WS2,N,NP,2) 

GO  TO  753 

756  DO  757  I=N1,N2 
XD ( I ) =0. 0 

WS (I)=0.0 

757  HS 2 ( I ) -C. 0 

758  IF  ( ICAL (7)*ICAL (8)-2)  762,759,759 

759  DO  760  I-N1.N2 

Hi  -Z71 1 ,5  )-ZZ  (1,6) 

H2*XX (I ,5)-XX (I ,6) 

C  MEAO  PT  1  -  HEAO  PT  2  ANGLE! 

ZD  (I  )  *AT  AN2  (HI  ,H2  ) 

IF  (20(1)  .LT.  0.0)  ZO  ( I )  =  ZO  ( I)  ♦PT2 

IF  i  ARS  I  ZD  (  I) -ZD  ( 1-1  )  )  .GT.  PI34)  Z0(I)*Z3(I)  ♦PIZ 

760  CONTINUE 

CALL  DEPI VI ( T , 70, WH, N, NP, 1 ) 

CJlL  DEFIVKT,  MM,  WH2,N,NP,2) 

GO  TC  763 


C0b620 

006640 

0  0b6  6  r 

OOfabSO 
0  0  67  0  0 
0  u  67  2  0 
i)  067l  0 
0  067 6 C 
0l673C 
006500 
006820 
006840 
0  06860 
006880 
006900 
0  0b9  20 
006940 
006960 
006980 
007000 
0070  20 
007040 
0  070  6  D 
D07C  80 
007100 
007120 
007140 
007160 
007190 
007200 
007220 
007240 
007260 
0  07280 
007300 
007320 
0  C7?4T 

0  C7360 
0  0  73  80 
007400 
C  07420 
0  07440 
007460 
0  07480 
007500 
C  0  75  20 
007540 
O  075  6  0 
fl  0  75  8  C 
007600 
007620 
007640 
007660 
0  C  76  8  0 
007700 


762  DO  764  I=N1,N2 
2D(I)=C.O 
WM(I>=0.0 
764  HH2(I)=0.0 
768  LINE =60 

DO  775  I*N3,N4 
IF  (LINE-50)  772,770,770 
770  WRITE (6,2500)  TITLE, NP 
WR I T  E  ( 6 , 2  551 ) 

HRITE(6 ,2520) 
line=  0 

C  “RInT  ANGULAR  velocity  and  acceleration. 

7  72  WRITE (6, 2590)  IFR(I)  ,T  (I)  ,XD(I),WS(I),WS2(I)  ,ZD(I)  ,WH(I)  , WH2II) 
LINE=LINE+1 
775  CONTINUE 

IF  (IPA)  780,780,800 
780  IP*2 

NN  =N4—  N3+  1 

J0=5 

JR  =  3 

IF  ( ICAL(3>+ICAL (5)-2)  790,785,785 
C  PLOT  ANGULAR  VELOCITY  AND  ACCELERATION  DATA. 

785  CALL  CPLT  (T  (  N  3  )  ,  WS  ( N  3)  ,  WS2  (  N  3  )  ,IP> 

790  J0=7 
JR  =8 

IF  (ICAL(7)+ICAL(8)-2)  800,795,795 
795  CALL  CPLT (T<n3) ,WM(N3) ,WH2 (N3) ,IP) 

830  CONTINUE 

IF  <M  .LT.  1  .OR.  I PL  ,EQ.  2)  GO  TO  5 
DO  200  J=2,8 

IF  (ICAL(J))  200,200,190 
190  DO  195  1=2, N 

X(I,J>=  X(I, J)-X<1,J) 

195  2(1, J)*  Z(I,J)-Z(1,J) 

X  ( 1 ,  J )  =  0.0 
Z(1,J)=  0.0 
200  CONTINUE 
I°=3 

C  202  DO  410  NP=NP1,NP2,2 
C  Nl  =  (  NP-1) /2*1 

C  N2=N-N1+1 

C  N3=3*N1— 2 

C  *4»N-NJ*1 

NN*N4-N3+1 


COMPUTE  LINEAR  VELOCITY  AND  ACCEL  DATA  FOR  PARAMETER  IDIK)  WITH 
RESPECT  TO  IR  ( K)  ;  MERE  TO  LABEL  400. 


no  loo  k= i , m 

JD=ID(K) 

IF  (JO  ,LE.  D  GO  TO  390 
JR  =  IP  (K) 

IF  (JR  .LT.  1)  GO  TO  395 


007720 
007740 
007760 
a  0  77  8 'J 
007800 
007820 
0  C76-L 
307860 
0,)78S1 
0  0  7  5  "  2 
J  0  7  9  2 
00)94- 
007960 
0-7980 
108-' 30 
008020 
008:4" 
008060 
008030 
0  0  8 13  - 
308120 
008141 
008161 
0  0  1  i  V  0 
003201 
008220 
006243 
00826C 
0  0  82  S‘- 
008310 
008320 
008340 
003361 
ons3e* 
00840  1 
- J8420 
308440 
0-8460 
0 18480 
008503 
0  0  85  2 r 
0  08540 
008560 
008580 
0  05(  10 
9086'’0 
008640 
008660 
008680 
008700 
0  08720 
0 J8740 
008760 
008780 
008800 


I 


if  iicjli  jdi  .lT.  i  .os.  icalcjki  ,lt.  i)  ;,c  ic  -.00 
xhp=  ci 
?MP=C1 
«*<  =  ci 
XMN=-Cl 
3  M  N  =  —  C 1 
DO  212  1=1, N 
I c  ( Jft- 1 )  205,205,210 
235  01 (Ils*IIiJDI 
30  (I  )  =  2  (I  1  JDI 
GO  TC  212 

210  CI (I )  =  X ( I, JO)  —  X  < I , JR) 

OC (I ) =  Z (I, J0)-Z(I , JR) 

212  CONTINUE 

CALL  SUIT .OIi X  0, N , NP ) 

CALL  SM (T ,DC, ZO,N, NO ) 

COMPUTE  MEAN  ANO  STANOARO  DEVIATION  OF  DIFFERENCE  BETWEEN  SMOOTHED 
A  NO  UNSMOOTHED  DISPLACEMENT  DAT  A  I 

CALL  ME AN2 (N1 ,N2 ,  01,  DC,  XD,  ZD  ,SMX,  SHX2.SMZ  , SMZ2 > 

COMPUTE  MAXIMUM  X,  Z  ANO  RESULTANT  DISPLACEMENT. 

00  260  I*N1,N2 

REST  l>=SaRT(XOCI>»XO(I>  +  Z0  (I )  •  ZD  ( I)  ) 

IF  (XD(I)-XMP)  220,220,215 
215  XMP=XO(I) 

TXMP=T (I) 

GO  TO  230 

220  IF  (XO(I)-XHN)  225,230,230 
225  XMN=XO(I) 

TXMNxKII 

230  IF  !ZDd)-ZMP)  200,2  00 ,235 
235  ZMP=  ZD  ( I ) 

TZMP=T( I) 

GO  TO  2 5u 

200  IF  (ZD(I)-ZMN)  205,205,250 
2o5  ZMN=ZO(I) 

TZMN=T(I) 

250  IF  (RES(I)-RM)  260,260,255 
255  RM=PES(I) 

TRM=  T(I> 

26C  CONTINUE 

COMPUTE  LINEAR  VELOCITY. 

CALL  OERIV1 (T, XD, VX,N, NP, 1) 

CALL  DERI V1(T , ZD, VZ, N,NP, 1 ' 

COMPUTE  LINEAR  ACCELERATION  DATA. 

CALL  UERIV1(T,VX,AX,N,NP,Z> 

CALL  OERIVJ (T , VZ , A Z , N, NP , 2 > 

LI N€  »60 

DO  2  8.  I x  N  3 , NO 

VEL)I)*SQRT(VX(I)*VX(I)*VZ(I)*VZ(I)) 

ACC ( I )  =  SORT (AX <I)*AX(I>*AZ(I>*AZ(I>  ) 

IF  (LINE-50)  275,270,270 
?T0  WRITE(6,250C)  TITLE, NP 

WRITE  <6, 2200)  HEA  OR  (  JC  >  ,  HE  AOL  (  JR  ) 


0  065  23 
2  0  S  fc -C 
0C8»bC 
0  OUt  6  0 
008531 
C  0e52C 

0  b8HOC 
0  0  8963 

b  oeos: 
01  PC oc 
009020 
039003 
0  C  90  feC 
0  09C  80 
0  0  9 1  :  3 
0 w912C 
G3913C 
0  0  913  2 
0091LC 
C  3  91  fe  C 
309180 
009200 
00922C 
009200 
009260 
009280 
009300 
0C9320 
0  09300 
009360 
309380 
039OQ0 
009020 
009000 
0  09060 
0C9O80 
009500 
009520 
0  C950C 
0  095  60 
009580 
0  u960C 
009620 
0  096OC 
0  096  50 
0  09660 
309680 
009690 
0  097  o  r 
009720 
or  97  3  0 
0  C  97  3  5 
009790 
009760 
309780 


* 


WRITE  (6,2510)  jjj*;- 

L  I NE  =  0  JOjU'O 

C  °RINT  LINEAR  OISPL,  VEl  AND  ACCEl  DATA.  □  C  ^  I  -♦  0 

275  ACCG(I) =ACC(I)/32.2  0o9960 

WRITE (6,2600)  IFR (I) , T (I ) , XD ( I ) , 2D ( I ) ,RES (I) , VEl ( I ) , ACC  < I >  , ACCG (  1  1  0  0 9e  » r 
LINEHINE‘1  uPR'^'C 

280  CONTINUE  <i 

IF  (LINE-40)  330,330,321)  009943 

320  WRITEI6.2500)  TITlE, NR  009960 

HRITE(6,220C)  HE AOR ( JO ) , HE AQt ( JR)  UP9950 

33C  WRITE (6,2700)  XMP.TXHP  OluCuO 

WRITE (6,2710)  XMN  ,  T X  HN  010C20 

WRITE(6,2720> ZMP.TZMP  C10343 

WRITE  (6 , 2730  )  ZMN,TZMN  0103F0 

WRITE (6,2740)  RH, TRW  CUC8G 

WRITE  (6 ,2920)  SMX  ,  SH  X2  ,  SMZ  ,SMZ2  OILS  jC 

c  0101?C 

C  PLOT  LINEAR  VELOCITY  and  ACCELERATION  DATA.  313.40 

c  0  '  0  1  b  C 

35u  IF  ( I°L )  360,360,400  Q1Q18C 

360  CALL  CPLT (T/N3) , V£L ( N3) ,ACCG (N3) , IP)  010200 

GC  TO  HO  010223 

390  WRITE  (6 , 2500)  TITLE, NP  OU?LO 

WRITE(6,2800)  <  313260 

GOTO4l0  D132*i 

395  WPITEI6.2500)  TITLE, NP  313300 

WRITE(6, 2810)5  313320 

400  CONTINUE  OlOJuO 

C  410  CONTINUE  010363 

GO  T 0  5  010390 

999  HRITE<6,2900)  010400 

CALL  PLOTE  D1042D 

STOP  010440 

C  FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  DATA  I  010460 

10  30  FORHAT  (H,I4, 8F7.,fl)  310480 

C1000  FORMAT (11,15, 8F6. 0)  310500 

1C10  FORNAT(8A10I  010520 

1020  FORMAT ( 8F10. 0 )  310540 

1030  FORMAT (A5,8I1,  213,12,12(12,11) , 13, F5. 0)  01056C 

2030  FORMAT)/  4X,*EPR0R  IN  CARO  IDENTIFICATION  NUMBER!  CARO  ID**, 12,  010590 

i  •;  frame  number  r»,i4>  oioedo 

2130  F ORM AT ( / /  4X,»TEST  N  DT  IRX  ITYPE  ICAh  IADJ  I»R  OlObCO 

1IPL  IPA  IPC  M  SETS)*, 1214)  010640 

2110  FORM  AT (  3*,A5,I6,Fli.3,I4,7I*,I5,7X,l2<TJ,Il>>  010660 

2120  FORMAT <  //  J6X , 7< AlO , 2X ) )  D1069C 

2130  FORMAT!  4X,*CALIB  DATA  IN  COUNTS  PER  F 00 T I » , F 9 . 3 , 6F 1 2. 3 )  010730 

2135  FOPM AT ( /  4X,* AOJUSTMENT  FACTORS  ADDED  TO  ALL  X  AND  2  INPUT  DATA)  X010720 

1ADJ*‘,F10.2,‘  AND  Z  A  0 J  =  * , F 10 •  2 )  0  107  40 

2140  FORMAT!/  4X, ‘AVERAGE  TIME  INCREMENT  BETWEEN  POI NTS J* , F i  (  . 5 )  0  1  07  6C 

2150  FORMAT (/4X, ‘NUMBER  OF  FRAMES  RE  AD  I  *,I4,»  FRAMES* )  31079C 

2155  F0RMAT(/4X, ‘REVERSE  POLARITY  OF  X-AXIS  DATA  (MULT.  -l.J)t  ‘,A3)01080P 
2160  FOPMAT ( /4 X, ‘PRINT  LISTING  OF  INPUT  DATA  IN  COUNTS)  ‘.ATI  0lD«2C 

2170  FORMAT(/4X, ‘PARAMETERS  RELATIVE  TO  SLED  DISPLACEMENTS)  PRINT?  ‘,010840 

1A3,4X,‘PL0T?  ♦ ,A3 )  Q10960 


2130  FORMAT ( /4X, ‘ANGULAR  VELOCITY  AND  ACCELERATION  DATA)  PRIN*?  ‘,010680 


d 


VELOCITY  And  ACCELERATION  OATAi 


coin 


1A3,4X,*PlOT?  *,A3> 

2190  FORMAT (/LX, ‘LINEAR 
1AJ,4X,»PlOT-»  *,A3I 

22  J  0  FORMAT  (  >  /  31 X , A9 , ♦  nOTION  RELATIVE  TO  THE  *,Jc 
2210  FQRhAT!/10x,I2,*I  *,Aq,*  MOTION  RELATIVE  TO  THt  •  ,  A  9  ) 

24  JO  FORMAT!/  4X,*£RR0R  IN  FRAME  NUMBERS,’  frame  NUMBt  c  on  CAR! 

1  •  FRAME  NUMBER  ON  CARS  2  =*,I4> 

2410  FORMAT!/  4X ,  •  FRAME  NUMBER  IS  NOT  INCREASING,;  Che>  cRAnt.  i 
1  CARC  1,  FRAME*  • , 15 ) 

2550  FORMAT (1H1.3X , *OATE«  • . A J 0 , 2 0  * , • TEST  NUM9E  9 i  *,A5/ 

1/  4X,8A10,5X, 12, •  POINT  QUADRATIC  F IT*  j 
2510  FORMAT!/  32X , *0 1 SPL ACEME NT* , 15 X , * VELOC I T Y  • , 2  I  5 X , • ACCI „ E PA T I  ON* ) / 0 11 1 2 G 
A  4X,*FRAME»,  011140 

1  4X,*TIMe*,8X,*X*,lQX,*Z  • ,2 (5X, *R£SUl T anT* ,  , 2  I  8 X , *RE S UL T ANT* ) / 0  ill  60 


0109CC 
*,010920 
010940 
0 10960 
0 10  9  8  C 
1  **,14,011000 
011C  20 
JUNE  CORJ1104C 
0 11C  80 
011080 
anioo 


■  ,  7  '  ,*  (F  T/SEC)  *,!»,' 


011180 
(FT/SEC  011200 


6  4  X , *  NO.  *, 

2  4X ,*  <SEC)*,2(5X,*(FEET>*  > , 6X,* (FEET) 

2SOl*,10X,*(G) »)  0 1 122  0 

2520  FORMAT!//  29  X  ,  *SHOUL  OE  R  -  HI  P*  ,  2 1 X  ,  *ME  A  0  r:  1  -  hEAC  PT  2*/  011240 

1  *  FRAME  TIME*,  21  ?X,*Th-  A*,  8  X ,  •  W*  ,  10  X ,  •  w-  ACC*  ,  4X1/  311260 

2  •  NO.  <  SEC  )  •  ,  2  (4  X  ,  •  l  R  -UI  ANS  >  (RAD/SEC)  IRAD/SEC  SOi  *1!  311280 

25  hC  FORMAT  !//4X,*THE  FOLLOWING  IS  A  LISTING  OF  THE  INPUT  DATA  IN  CC'JNT  C 1 1 3  C  C 

IS  AFTER  TRANSLATION  AND  ROTATION  OF  ON-BOARD  CAMERA  DATA,*)  011320 

2550  FORMAT ( //4X, *  hE  FOLLOWING  IS  A  LISTING  OF  ThE  INPUT  DATA  IN  COUNT  3113  40 


1SI») 

2551  FORMAT <//4X,*THE  FOLLOWING  IS  A  LISTING  OF  Tm  ANuUL Ac 
1H£  HEAD  ANO  SHOULOEfil*) 

2552  FORMAT(//4X,*TME  FOLLOWING  IS 
11)  IN  COUNTS  I  * ) 

2555  FORMATC//4X,*THE  FOLLOWING  IS 
1CEMENT  IN  FEET  I*) 

2560  FORMAT!//  *  FRAME  *,  8!6X,A10>/  2X,*NO.»,  BI8X,*X*,t 

2565  FORMAT!//  *  FRAME  TIME  *,b!  TX.A10)/ 

1  *  NO.  (SEC)*,  6!  7X,*X*,6X,*Z  •)) 

2570  FORMAT 1//4X, ’LINEAR  DISPLACEMENT,  VELOCITY  AND  ACCELERA 
1ILL  BE  COMPUTED  FOR  THE  FOLLOWING!*) 

2530  FORMAT ( IX ,14, 2X,8 (F9.0 ,F7. 0) ) 

2585  FORMAT!1X,I4,F11.5,6(F10.3,F7.3) ) 

2590  FORMAT  (IX, 14, F 11.  5,2  (F1Q.3  ,F  11.3, F13.  3 , 6X  )  ) 


0  1 1  3  6  C 
TION  OF  T  3 113  30 
011400 

LISTING  OF  0(I)-DR(H-DC-1)  *DR(  1-311423 

C1144C 

»ISTING  OF  PARAMETER  •  SLEC  D’'PlA01146C 

0  1148-' 

■’•I)  01150 

011520 
311543 
JN  data  MO  11560 
0  1 1  5  8  C 
011630 
0116  20 
0 11640 


2595  FORMAT !//4X,»THE  ABOVE  DATA  WAS  PLOTTED  (X  VERSUS  Z)  for  FRAME  NUM011b60 


1BEP*  ,14,* 
26 JO  FORMAT ! 4X 

TO  FRAME  NUMBER*  ,14) 
,J4,  F11.5,F10.3,F11.3, 

F12.  3,  F  15.  3,F16.3,F17. 

?  ) 

011680 

011700 

27 JO  FORMAT!/ 
i,  F8.5) 

4X  ,  *MA  X I  MUM 

POSITIVE  X 

DISPLACEMENTS*, F8. 3, 

• 

AT 

TIME 

*011720 

0117lC 

2710  FORMAT!/ 
1,  F8.5) 

4X, ’MAXIMUM 

NEGATIVE  X 

DISPLACEMENT*’, Fa. 3, 

• 

AT 

TIME 

*011760 

011780 

2720  FORMAT!/ 
1,  F8.5) 

4X , ’MAXIMUM 

POSITIVE  Z 

DISPLACE MENT=*,F8. 3, 

• 

AT 

TI«£ 

•OllSOC 

011820 

2730  FORMAT!/ 
i,  Fa. s> 

4 X,  ’MAXIMUM 

NEGATIVE  Z 

0ISPLACENENT*’,F8.3, 

• 

AT 

TI  ME 

*01181.0 

'11860 

2740  FORMAT!/ 
1,  F8.5) 

4 X  ,  ’MAXIMUM 

RESULTANT 

DISPLAC£NENT=*,F6.3, 

• 

AT 

TIME 

*011880 

011900 

2 8 J 0  FORMAT I///4X,  *OMIT  COMPUTATIONS  FOR  SET*, 13/  4X,*ThE  PROGRAM  15111623 
1  NOT  DESIGNED  TO  COMPUTE  RANGE  DISPLACEMENT,  VELOCITY  AND  ACCEL ERA0 1 1 9 40 
2TI ON. •/  4X , *  OAT  A  PARAMETER  CODE  IS  LESS  THAN  OR  EQUAl  TC  1*1  OIIOGO 

2810  FORMAT I///4X,  • OMIT  COMPUTATIONS  FOR  SET*, 13/  011983 


1  6  4 


1  4X, ‘REFERENCE  PARAMETER  CDDE  IS  LESS  THAN  1*)  012000 

2820  FORMAK/  4X,*CALIBRATI0N  FACTOR  IS  0.0  THUS  COMPUTATIONS  MILL  BE  00120 21 
1MITTED  FOR  THE  FOLLOMING  PARAMETER  I  *,A10>  0120-J 

2830  FORMAT (//IX, 134<1H‘) //4X,  •  OMIT  THE  REMAINDER  OF  THE  COMPUTATIONS 012060 

1  FOR  THIS  TEST  BECAUSE  OF  INPUT  CARD  PROBLEMS, • /  012C80 

2  4 X, *S£E  ERROR  STATEMENTS  AT  THE  BEGINNING  OF  THE  OUTPUT  FOR  THIS  012100 

3TE ST •//  IX,  134  (1 H* )  1  01212U 

2840  FORMAT </4X, •NUMBER  OF  FRAMES  IS  »»,I4,*;  OMIT  DATA  FOR  FRAME  NUM0O12mO 
1ER !• , 14 )  0 121 b  0 

2900  FORMAT <»1  ENO  OF  JOB»)  012160 

2920  FORMAT </4X,*ME AN  AND  STANDARD  DEVIATION  OF  UNSMOOThED-SMOOTHED  DIS0122DG 
1PLACEMENT  DAT  A I*/ 4 X, *MEAN  ANO  S. D.  OF  X=* , 1P2E15, 5/4X ,*  ME  AN  AND  S.012?’;! 
20.  OF  Z*«,  2E15. 5)  0122“C 

END  012260 


165 


I 


SUBROUTINE  CPLT< T, Y, 7, IP) 

DIMENSION  X(3u2)  ,T(1)  ,  Y<U  ,Z  (1) 

COMMON  JO, JR,  N, NP, II, 12, XX(302, 6) ,22(302,6) ,ICAl(8) 
COMMON  /CPLTC/  HE ADL ( 8 ) , D A TE , TE ST , T ITLe ( 8 ) , IRX , DTL P 
IP=1  —  COMPOSITE  PLOT  OF  PARAMETER  VERSUS  SLED  DATA 

IP  =  2  PLOT  OF  ANGULAR  VEl  AnD  ACCEl 

IP  =  3  -  PLOT  OF  VEL  ANO  ACCEl 

SXMAX  IS  THE  MAXIMUM  LENGTH  of  The  TIME  scale  IN  INCHES. 
SXMAX=17. a 
SXMA  X*32. 0 
SY  =  1  0 .  0 
OX  =0 • 3  2 
N 1 =N ♦ 1 
N2=N«2 

IF  (IP-2)  300  .  5,5 

5  DO  10  J  =  1,N 
10  X ( J ) *T ( J ) 

X(N1)=FLOAT(IFIX(X(1)*1QC.01»)*0.01 
X ( N2  >  =OX 

SX=  FL0AT(IFIX((X1N)-X(N1) ) /CX) *1 ) 

IF  (Sx  .GT.  SxmAxi  S»=  SxmAx 

CALL  AXIS<e.O,3.0,12HriMF  IN  SEC. ,-12,SX,0.C,x (Nl) ,OX) 

IF  (IP  .  EQ.  21  -.0  To  4  00 

AMX*-1.CE10 

amn*  l.ceia 

DO  15  j  =  i ,  N 

AM  X*  AMA  XI  (  AMX  ,  T(  Jl  I 

AMXaAMAXl (AMX ,Ilj|l 

AMN*  AM I Nl ( AMN , T ( J I  ) 

AMN* AM I Nl (AMN , 2 ( J) I 
15  CONTINUE 

IF  (AMN)  30,20,20 
20  AMN*  0.0 
GO  TO  UC 

30  AHN*FlOAT(IFIX(AMN/2.5»-1)#7.5 
*G  AMX*FLOAT(IFIX(AMX/2.5l«l> *2.5 
IF  (  D  YL  P*  43,43,42 
42  OY  =  D YL  P 
GO  TC  9  C 

•,3  OYY*  (AMX-AMN)  /S* 

IF  (OYY-2.5)  44,44,45 

Ml.  0  Y  =  2 . 5 
YMIN*AMN 
GO  TC  1L0 
»5  IF  (OYY-5.0) 

*6  OY  =  5 . 0 
GO  TC  90 

48  IF  (DYY-10.0)  50,50,60 
5i  OY*1C.O 
GO  TC  90 

60  IF  (DYr-20.0)  70,70,80 

70  OY=20.0 
GO  TC  90 
3  C  OY  =  JC.O 

9  P  YM INrFLOAT  ( IF  I  X ( AMN/DY )  l *0 Y 


0  122  80 
012300 
012320 
012340 
012360 
oi23eo 

012400 
012420 
012440 
012460 
012480 
0125C0 
012520 
012540 
012560 
0125e0 
012600 
012620 
012640 
012660 
012680 
012700 
012720 
012740 
012760 
J 127  B  0 
012800 
012820 
012840 
012860 
012680 
012900 
012920 
012940 
012960 
012980 
013000 
013020 
013040 
013060 
C  '.30  8  0 
013100 
013120 
u  1  3 1 4  0 
013160 
0131 BC 
0  1 32  u  0 
013220 
013240 
013260 
013280 
013300 
013320 
013340 
0 1  33  6  C 


IF  (  Y  M I  N  .  GT.  AHN)  YMIN=YMIN-OY 

J1  3330 

IF  (THIN  ,GT.  iHN)  YM1N=YMIM-:Y 

31 !7 95 

100 

Y*-AX=SY*OY.YMIN 

»  ,  7  i, r 

IF  ( AMX  ,LE.  YHftx)  GO  TO  102 

3  1  34  :  3 

YM  IN=YMlN*QY 

0  1  34  25 

Ymjx=YM4<vOY 

11 3427 

102 

Y ( Nl) -YMIN 

0  1  34-3 

2  (  si >  =rt*iN 

0  1  3  -  0  ; 

Y(N2! =0Y 

0  1  3-  a 0 

Z ( N2 ) =  CY 

313500 

CALL  ft  X  ISC0.3  ,  J.  a  ,  26HVEC  IN  Fr/SEC - ACC  IN  f.,26,FY  ,p<'. 

, f*:u, 

, y:  3  1  362  3 

IF  (YmIN)  105,110.110 

3135-0 

135 

YO  =A  6S ( YMIN/OY) 

013563 

CALL  PLOT  (  0.3  ,  YQ  ,3) 

313530 

CALL  PLOT(SX,  YO  ,  2 ) 

013603 

110 

OO  120  I»l, N 

313630 

IF  (Till  ,CT.  YM4X(  Y(I)=YMAX 

•<136-0 

IF  (Z(I)  .GT,  YMAX)  z  <  I)  =Y  MA  X 

3  1  36  6  3 

IF  (Y(I)  ,L  T.  YMIN)  Y(I)rYMIN 

3  1  3  6  8  1 

IF  (Z(I)  ,LT.  YMIN)  Z(I)=YMIN 

0  1  3  7  J  !) 

120 

CONT inue 

J  1  3  7  7  o 

1 30 

call  line cx, y , n, i ,ie ,1) 

313740 

CALL  LINE ( X,z ,N, 1 , IQ ,3 ) 

017760 

HliHEAOH  JO) 

3  137  90 

CALL  SYMBOL  <0.25, 9. 5,0.1 05,m1 ,P.O , A) 

313800 

CALL  SYMaOL <0 . 25, 9.3 ,0. 105 ,6hREL  TO, 0.3,0) 

013820 

Ml -M  E  A  OL ( Jp) 

313840 

CALL  SYnaOL(0.25,9.1,0.lQ5,Hl,r.3,9) 

313960 

J=1 

3138  *0 

CALL  SYM3OL(0.5,  8.9  ,0. 105 ,J , fl.0,-1 ) 

013900 

CALL  SYMBOL  10.65,  a. 7 5,  0.  10  5,  3HVEL  ,0.0, 3) 

313923 

J-  3 

013943 

CALL  SYMBOL (0, 5,  9. 5 5,  0.  10 5 , J , 0 . 0 , -  1  > 

01 3^60 

CALL  SYMBOL (0.o5, 8.5 J, 3.105, 3HACC.0. 0 , 3) 

3  1  ?Q  8  0 

14  0 

CALL  SYM30L  (0. 25 , 9.8 ,0  •  105  ,  4M  TEST  ,0  «  0,  - ) 

014000 

CALL  SYM30L ( J . 75, 9. 8, 0.105, TEST, 0.0,5) 

J  140  20 

CALL  NUMBER ( 1 , 75, 9.8,0.105 .FLOAT (NP)  ,0.  ) ,-l) 

0140-0 

CALL  SYMBOL  (2. 05, 9.  8,0.10  5 .9MPOINT  Fir,J.0,a) 

31-063 

GO  TO  999 

0 1-0  r  0 

31-130 

PLOT  the  COMPOSITE  "LOT  OF  P  A  Rfl  MET  EPS  VERSUS  SLED. 

31-123 

NOTEl  CMOINATE  ANQ  ABSCISSA  SCALING  IS  clXtO. 

01-140 

3  1-160 

3  i  0 

zmin=o.o 

0141-0 

<MIN=-1.4-2.2,FL0AT(IRX) 

314230 

XNINs-1.3 

0  1  -3  2  C 

0Z*0.4 

31-240 

ox*o. . 

3  1  40 

sx=ic.o 

0 1-2  -  0 

CALL  AX  IS (0. 0  ,  J. a , 1LHX  9ISP  IN  fe rr , - 14 , S x , 0 . o , < M I N , J X s 

31-300 

call  axis  <3.  3  ,  J.  0  ,  14HZ  OISP  IN  rr  E  r  .  3  4,3Y  ,B0.  3  ,  IMIN,  07 

0 1-9  ’0 

CALL  SYM30L(0.25,9.5  ,0,105,16MOftTA  eE„  M  CL  £  0 , 0 . J . 1 6 > 

j  !  -  9  -  ? 

X<  Nl )  IXMIN 

31-9.3 

X  (  N2 ! =C  X 

3  1-’  7 

Z  (  Nl  )  -  Z  M  I  N 

0 1-- 0  3 

I 


Z(M2) *J2 

3 14L20 

XHAX=SX»OX,-XMIN 

3 InLhO 

ZMAX=ST»OZ«-Z  1IN 

0  144  b  3 

VQ  =  1C.  C 

3  ILL  80 

00  310  J  =  l,6 

31L530 

IF  IICAL(J*2)>  310,310,305 

31L523 

105 

Hl^MEADL (  J*2> 

31L5L0 

Y 0  =  Y0-0. 25 

J1L560 

CALL  SYmSQL  <-  1. 75,  TO  *0.05,0.  105,  J,0. 0,-1) 

0 1l5  8  0 

CALL  SYH90L<-1. 60, TO, 0.105, HI, 0.0,9) 

0 1L6  3  0 

no 

CONTINUE 

014620 

DO  325  J= 1 , 6 

0  1  46  L  0 

IF  (ICAL(J  +  ?t)  325,325,315 

0 1L66  0 

3  \  s 

ir-o 

314680 

GO  320  1-11,12 

014700 

n*Ti»i 

314720 

*'ir>=xvir,j> 

914740 

3 14760 

IF  x  5(111  ,GT.  <M  A  x)  XCIT)*XMAX 

014780 

if  t*u:>  .lt.  yminj  x(ID=xmin 

014630 

IF  (2(111  .  GT .  ZMAX)  Z(II)=ZMAX 

014620 

IF  : 2 (I i>  .lt.  ZMIN)  z(II)=zhin 

0 14640 

320 

CON) INUE 

014660 

CALL  LINE ( X,Z , N, 1,-1, J) 

014680 

125 

CONTINUE 

014^00 

go  ro  i l o 

014920 
0 149l0 

SETUP  AMO  plot  angular  kel  ano  ACCEL. 

014960 

014960 

4  J<1 

CALL  SCALECY, S  Y , N , 1 ) 

015000 

CALL  SCALE(7,SY,N,1) 

015023 

YMINsY  (Nl) 

315040 

ZMtN=Z<  Nl) 

015060 

CY ~  Y(N2) 

015080 

DZ  =  Z(N2) 

015103 

NPITE(6,200n»  YMIN.OY, ZNIN.OZ 

015120 

CALL  AXIS(U.O,0.0,22HANGULAR  YEL  —  RA07SEC, 

22,SY , 90. , YMIN.DY) 915140 

CALL  AXIS<SX,0.0,26HANGULAR  ACC  —  RAO/SEC/SEC, 

-26,SY,90. ,ZMIN,DZ) 015163 

GO  TO  130 

015183 

CALL  PLGT<SX*3. J,0.0,-3> 

015200 

RETURN  015220 

24  4  0  FORMAT (//4X,*THE  A80YE  YEl  AMO  ACCEL  DATA  ARE  PLOTTED!  *MIN  =  »,  31524U 

lFlfl.2,*  3Y=»,F8.2  ,5*,*  ZM  IN=  * ,  F 1 0.  2 ,  *  OZ*»,FS.2>  01526C 

END  315200 


I 


SUBROUTINE  SH  <  X  ,  Y  ,  YC  ,N  ,  NP)  015  3  JO 

C  NP  MUST  BE  AN  OOO  INTEGER  .GE.  3.  015323 

c  COMPUTE  the  COEFFICIENTS  for  A  QUADRATIC  LEAST  SQUARES  FIT  of  *  NP  *  015350 

C  POINTS  ANO  COMPUTE  THE  FIT  OF  THE  OATA  (NO  DERIVATIVES)  >YC(H*.  015360 

OIMENSION  C (3  I  ,X (1) ,Y(1) ,YC(1)  0153*0 

M=(NP-l)/2  015500 

NN  =  N-M  0 1552  3 

N1=NN*1  01551.0 

OO  10  1=1, M  015560 

10  YC ( I ) =0 • 0  315540 

00  20  I=N1,N  015500 

20  TCtI)=0.0  015520 

MM  =  M  ♦  1  015550 

00  100  I=NM,NN  015560 

M1*I-M  015560 

N2  * I *M  015630 

CALL  QLSQ<X,Y,N1,N2,C)  015620 

YC  ( I)  =C  <l)»X(I)*X<I)  *C  <21  »  X(I)  *C(  3>  0  156 .0 

C  YP(I)=2.0»C'l' *X(IJ*C<2)  015660 

C  YPP(I)=2. 0*3(1)  015690 

110  CONTINUE  015700 

RETURN  015720 

ENO  015750 


l<i  3 


SU3RCUTINE  0E3IVHX,  T,  tp.n.np.ID)  01576J 

NP  -UST  BE  IN  COQ  INTECEP  .  GE  .  3.  Q1B730 

1 3=1  for  FIRST  OERIOATIOE.  315303 

10  =  2  FOR.  SECONO  DE=IvaTIVE.  3  1562  3 

COMPUTE  THE  COEFFICIENTS  FOR  4  JUAGR4TIC  LEAST  SOuARtS  FIT  'NP'  315f»£; 

JOINTS  AND  COMPUTE  THE  first  OERIVATIvE  >PC)',  3  1586  3 

DIMENSION  C  (  3  )  ,  t  ( 1)  ,  Y<  1)  ,  YP(  1)  3  156  3  G 

~=(NP-l>/2  015900 

I-  015923 

NN=N-<  0  159  **0 

Nl-NN*l  015960 

CO  10  1=1, <  015960 

10  YP(I)-Q.O  OlbuOO 

00  2  3  I  =  N 1 ,  n  0160  2Q 

’0  TP  (I  )  =  0. 3  0  160  **0 

^T-^+l  316060 

001GGI=hm,nn  016030 

016130 

016123 

CAuL  QLSQtX,Y,Nl,N2,C)  OIoIh' 

YP(I) =2. d*C 1 1 3  «X( I) *C(2)  OlblbO 

TC  (I  )  =C  <  l)  *X  l  I)  »X  ( I)  H3(2)  •  <<  I)  .C  (3)  0  161  =  3 

yPP( I ) =2.Q»C < 1 )  316230 

130  CONTINUE  316220 

RETURN  0 162  lo 


316250 


SUBROUTINE  3LSJ<  X,  Y,  N1  ,N2,  D) 

0I-ENSI0N  Xll)  ,  T  <  1  >  ,0(11 

C  IhIS  SUBROUTINE  COMPUTES  TmE  JuAORAT  IC  ..EAST  SQUARE  Cot  -  r  I  -  I  E  n  T  S 
C  ’C<3)'  FOR  NP  DATA  POINTS  (  NP  TOST  BE  AN  000  INTEGER  .DE.  3). 

C  THE  DATA  need  not  BE  EOUALLT  SPACED. 

C  C(i) • <x**2» »C 12) *x*C  (3) ax 

C  C<  1)  *  X  x  C  (  2)  =  Y 

0  SUBSTITUTE  xP=x-ee,  WHERE  EE  IS  X < < Nl .N2 I / 2  ) 

C  THEN  C(3)xC(3>*C I1)*FF*FF-C(2)*FE 
C  Ct2>  =C<2»— 2.3»C  <H »ef 

C  CHINCH) 

c 

E(A1, A2.AJ.ai, 32,33, Cl, C2.CT) =  A1«  <3  2*C3-9  3»C2 )  ♦ A2»  <  3 3*0 1 -  •  1  • C  7  I 
1*<  ■31*C2-92*Cl  ) 
rN=EC JAT  <  N2-NI *1 ) 

NN=<NT.N2) / 2 
EE  =  X  <  NN) 


j  it-'  J  0 
0  3  b  7  3  0 
0 is7.  . 
Ilfalw: 
j  l  b  1  ; 
1 1 1  -  "C 
T  1 D  -  j  I 
j  i  b  - :  i 
I Ibw-  . 
Q lb»bO 
3  1  b  -  -  0 
.  1  b  E  J  0 
OlbEZC 
!  0  I  h  E  -  „ 
Olfc^oC 
: ;  bE  - : 
I  I  bo  u  3 
J IbfcZO 


zi=a 

0  3  bt  . 

Z2=0 

aibf-‘ : 

23=0 

3  1bb  'C 

ZN  =  0 

J  1  o  7  j  3 

zs=a 

JISZ’D 

Z6  =0 

3 1EZ 

Z7  =0 

31S7S0 

DO  20  I =Ni »  N2 

J  1  b  7  3  0 

X2  =  X  <I) -EE 

X1=X2*X2 

010273 

Zl=Zl*X2 

J  1 6  X  u  0 

Z2  rZ2*xi 

31b«bC 

Z3rZ3*X1*X2 

3106  -jO 

Z<*»Z<**Xl*Xi 

3  I  few  J  0 

Z5  =  Z5*r<n 

3  1  b  0 : 0 

Z6=Z6»x2*T(I) 

0  lbEwO 

Z7  =  Z7*xi*Y<Il 

3 loab3 

I 


CUERCUT  INE  K0TATE(N,U1,IPR)  31716. 

C'CHmiN  JG.jR,  IXN,  NP.NC1,  NC2  ,  XX  <3  0^  »  6)  ,  ZZ  <  31)2  ,  6)  ,  ICALio),  017180 

1  IFR  I  3*J 2  )  ,X  (302, d)  ,  Z  (302 ,3  I  ,  I0<  12  )  ,  IR  ( 12)  ,ACC  (  30  2)  ,  0  17200 

2ACCG(3G2),  CAL ( 81 , XO (302 ) , ZO( 302)  017220 

THIS  SuEROUT  Ii.t  TRANSLATES,  ROTATES,  A  NO  CALIBRATES  I«£  ON-90AR3  0  172  40 

CAMERA  CATA  STOREO  IN  The  •)’  AnO  *Z*  ARRATS.  all  DATA  are  0 172o0 

TRANSLATED  TO  A  COCROInATE  SYSTEM  THROUGH  The  Sled  RANGE  REFERENCE  0  2  72  30 

AOlNf  (FIRST  X , l  PAIR  FOR  EACH  TIME).  0173j0 

AXIS  is  THEN  ROTATED  SO  THE  ANGLE  BETWEEN  THE  SlED  range  REFERENCE  017320 

JNC  The  SLED  REFERENCE  (SECONO  X,2  PAIR  FOR  EACH  TIME)  IS  THE  SAME  017340 

FOR  ALL  TIME  STATIONS  (SAME  AS  AT  iIME  in.  017360 

FIR^T  RCIN1  IS  RANGE  REFERENCE  ON  IHE  SLED.  017380 

SECOND  point  IS  the  sled  REFERENCE  POINT.  017400 

RI2=6. 283185308  31/423 

1=1  317440 

XR  =  X  (1,1)  0l74t>0 

ZR  =Z  (1  ,  1)  017480 

IF  i  I P  R )  10,10,15  0  1750  3 

1U  MR  1  T  E  (6 , 2580)  IF  R  <  I )  ,  (  X  <  I  ,  J)  ,  Z  ( I  ,  J)  ,  J=  1 , 8  >  317523 

SUBTRACT  INITIAL  RANGE  VALUE  FPOM  SLED  REFERENCE  AND  DETERMINE  Th£  0175-0 

REFERENCE  ANGLE.  017560 

15  X1  =  X(I,2)-XR  017580 

Zl=Z(I,2)-ZR  017600 

X  (  1 , 2)  =X  (  1 ,2)  *'  AL  (  2)  017620 

: ( I, 2) -l (I, 2) »CAL  (2)  0176-0 

00  20  J-JU6  0176-.0 

X(  I,  J)  =  X(  I ,  Ji  »CAL  (  J)  0 1 7  6  h  0 

2  C  Zll,  J)*Z  (I,  J»  *CAL(  J»  0  17700 

•T'R‘  is  the  REFERENCE  angle  BETWEEN  The  lw.3  RtFEREsCE  points  DN  TmE  017720 
SLED  FOR  The  FIRST  TIME  STATION  (RANGE  ANO  SLED  REFERENCE  POINTS)  2  &177-0 

ALL  DATA  FOR  1=2  TO  N  ARE  ROTATED  TO  MAKE  ThE  ANGLE  BETWEEN  THE  TWO  017760 
POINTS  THE  SAH£.  0l77;>0 

J5  TmR-ATAN2(  Zl,  XI)  0  1780  0 

IF  (ThR  .Lt.  0.3)  THR=THR4PI  2  017820 

DO  50  I=2,N  017840 

Hi  =  X  ( 1 , 1)  0  17860 

H2  =Z  (1,  1)  017880 

TRANSIATE  SLED  REFERENCE  DATA  TO  COORDINATE  STSTEM  THROUGH  Sled  R  AnGc  0  179  0  0 
REFERENCE  ANO  DETERMINE  THE  angle  BETWEEN  Sled  range  REFERtNCE  and  J17920 
ThE  Sled  REFERENCE  POINTS  (FOR  I-TH  TIME  STATION).  01/940 


Xl  =  x  (I,2)-Hl 
Z1=Z(I,2)-H2 
TH 1= ATAN2 ( 21 , XI) 

IF  (ThI  .i.T.  O.J)  Th  I-  )  HI  >PI  2 

ALL  DATA  ARE  ROTATED  8T  ANGLE  TH=THI-TmR. 
Th=ThI-TMR 
CS  *COS(TM) 

SN=S IN ( Th) 

ROTATE  sled  REFERENCE  7  NO  TRANSLATE  sack  t„ 
to  (21  =x1*CS*Z1»,:n»XP 
2D(2)=-xi*SN»71»CS*_R 
<(I.2)  =  xD(2,*CAi_(2) 

7  ( I,  2>  =  ZD  (  2)  »CAl  (2) 

CO  -  u  J  =  i  1 • 8 

TRAnSlATc  9Y  1  JNC  M2  AND  rotate  3f  ANG^t 


I  1  t i al 


’  T  h  ’ 


’hen 


017960 
017990 
318000 
018020 
0  150  40 
313060 
J 13C  90 
01310C 

;  JCRD I N A  TE  STSTE-01817: 

0181-0 
013160 
018190 
018203 
0  19220 

TRANSLATE  SAC  <  013240 


ro  INITIAL  COORDINATE  SVSTFf. 

*1  =  <  .1  :  jl  -HI 
Zl  =  l  U,  J)-H2 
XC<J)=X1»CS*Z1*SN»XR 
ZD  (  J  )  =-xi»SK*ZJV:s  +  ZR 
<  < : ,  j>  =  xd (  j) *;al  (  j> 

+  a  /<  r,  j)  =  zj(j>  *cai  (  j) 

X  '  I ,  1)  -XR 
Z < I , 1) -ZR 
IF  (IRR)  •*5,'*5,5Q 

-*5  w*  IT F  (6,25301  IFR<I)  ,x  1 1,11,2(1 
5 J  CONTINUE 

2630  FORRAf  (1X,IR,2X,3‘.  F9,u,F/,  0/  > 

RE (URN 


« -  A  N  1  .  N  .  I  , 


I  I  1:  Hi  IN  “ 


U:J  "  n  ^  E  w  t  N 


-VX-S*HX/ct  '•  -  '  ?  N  ) 

A  Z  =  S^/PlCAf  (Si 

c«i  t S ‘h Z -  3.0 

:o  ica  :  =  i ,n 

E*x  =  S*x*(XtI--Ai/<)*#2 
133  SH 2 - S 1 Z  *  <  Z  < 1 1 -  A V  Z 3  **  2 

‘jHis  iQR  T  (  $n  */  <■'  .  '  A  "  #  N-l  )  ) 

:":  =  s^rt(ch:/6l-.at  !N“1 ' } 

w-* ;  r  f.  ( 6 .  j  o  o  o  j  a  v  * .  e  M  '  i  -  'J  z »  ’■ M  z 

?3  00  £:<**«Ar(*l  Ht  JN  iN{"  17AsGA*D  U  V  :  3  T  :  .  s  A  ...  7 

i  wffPE^ENCE  nan  r **  *c;T  anc  ■:•  of 

Z  •  ■*<  £  A  n  an;?  ^ .  J *  '•  *-  i»*  ,2blJ«5) 

^  £  T  lJ  W  N 
ENE: 


3 U565 
1 1 3  E  0 
3 :  zt  i : 
:  lit  22 

j  1  3  O  •*  3 

0136*50 
014630 
:i47 jr 
3ic::: 
3  1  37  *4 C 
0187^0 
313730 
313830 
313820 
3138  -0 
:  2  0  1  3  3  6  3 
0158  3  0 
31  390  C 
313920 
3  1  3S**  0 


SUBROUTINE  M£AN2  <  N1  ,N2 , 01 ,0C  ,  XC  ,ZQ,  SNX,SMX2,SMZ,  SMZ2)  31S960 

OImENSION  01 ( 1) , 0C<1> , XQ<1) , ZD(1»  01)980 

COMPUTE  AVERAGE  ANO  S.O#  OF  UNSMOOTHEQ  MG NUS  SMOOTHED  OATAi  019000 

FNN=FL0AT(N2-N1*1)  019020 

SHX=SMX2*SMZ*SNZ2*0. 0  0 190  4O 

00  100  I=N1,N2  019060 

OIFX=OI (I)-XO(I)  019080 

OIFZ=OC < I) -ZD (I)  019130 

SMX=SMX+OIFX  019120 

SMZ=SNZ*OIFZ  0191MO 

SMX2*SHX2*-0IFX»»2  319160 

130  SMZ2=SMZ2*OIFZ**2  0191)0 

SHX=SMX/FNN  019200 

SMZ-SMZ/FNN  019220 

SMX2-SQRT ( lSNX2-SMX»SMX»FNN) /(FNN-l.Q)  )  0192  GO 

SHZ2=SQRT( CSMZ2-SMZ»SMZ»FNN> /(FNN-l.fl) )  019260 

RETURN  019290 

ENO  319300 


APPENDIX  B 
PROGRAM  WBPL 


PR  J',  RAH  W9RL  ( INPUT  ,0  UTPUT  ,  TAPE5  =  INP'jr  ,  T  APSt^ouT  -U  T  ,  r  AR£  7) 

CGMMLn  AiiSO,9),r(l5  0,9),Z(l50,9>,Xxii5a,9l,YY<i.5e,9>,ZZ(l5  0,9) 
l,riT(fO),T(150>,/PES<150),ARES(150),<A(l50),YA(150), 

2  ZA( 150 ,FMN<12) ,FMX<12> 

01  RE  NS  I  CN  04t  1  (10  21.)  ,FNNC  <3,2>,FHXC(3,2),IS(9)  , 1  E  (  9) 

CA  =4  ENC/5H99999/ ,  NP/1 1/ ,  C  CN/ 1.  0Elfl/,FCT/0.7/,FCTC/G.a5/,INC/4/ 
1,  TCUN/1. QE-OS/, NMAx/150/ 
call  PLorsioara, i024,7) 

CALL  PLOMO.0,-0.  5,-3) 
ca^l  plcmo.o  ,o.7,-3> 

CALL  FACTOR(FCT) 

CALL  DATE (  TOO  A  Y) 

CALL  TIM£(CLOC<) 

NS  =  (  NP-1)  / 2 

to  REAO(S,iaOu)  TEST,  TCOMP,  OT 
IF  (EOF  <  5 ) )  999,23 
20  REaO(5,1100)  TITLE 

IF  (0T  .LT.  TCON)  07*0.002 
NS  T  =  0 

00  25  I=l,NM4x 
T(  I)  =FL0AT(I-1)  »OT 

IF  ( A0S  <  T CCMP- T ( I )  I  .lT.  TCON)  NST  =  I 
25  CONTINUE 

IF  (NST  .LT.  1)  WRITE(6,330Q> 

IERR=Q 

00  90  <=1,5 

J2=2*< 

J1  =  J2-1 

IF  (<  .  E3.  5)  J2  =  J1 
1  =  1 

REA0(5,12aa>  TOM, (X( I, J) , Y (I , J» ,Z(I ,J> , J* Jl, J2> 

CO  30  1=1, NN A  X 

IF  (  ABS<T(I)-T0M)  .LT.  TCON)  GO  TO  35 
IQ  CONTINUE 
io<=  (Jim  /2 

IF  (IERR  .EQ.  0)  WRI TE (b, 3050 ) 

WR  IT E  (  6 , 30 10)  TEST, IOK, TOM 
IERR*1 
GO  TO  6 Q 
35  13  ( J  1)  =  I 
IS  ( J2)  =1 

IF  (I  .E3.  1)  GO  TO  50 
00  40  J  =  J 1 , J2 
X  (  I  ,  J)  =  X  (  1  ,  J) 
r ( I, j) =y (i, j) 

40  2(  1,  J)  =  Z(1,J> 

50  I«I»1 

IF  (I  .GT.  NM 4  0  GO  TO  55 

READ  (5, 1200)  T0M,(X(I,J),Y(I,J),2(I,J),J»J1,J2) 

IF  (TOM  .GT.  990.0)  GO  TO  70 

IF  (  ABS  (  TOM-T  (  I)  )  .lT.  TCON)  GO  TO  50 

IF  (IERR  .EQ.  0 1  WRITE (6,3050) 

I£RR=IEPR»1 
IDK* ( Ji+1) /2 

WOITE (6 , 3000)  TEST ,  I  OK  ,  T (I), TOM 


o  o  o  1 . 1  ■ 
000120 
0001." 
DOOlnO 
000133 

oroioo 

003230 

00034Q 

000263 
00C2  90 
000303 
000323 
000343 
0  C3T60 
0  3  0  3  i  r 
0044.3 
0  0  0.2  3 
0  v  0  .  .  3 
030.5. 
0  3  04  J , 
000500 
300533 
0305.0 
000560 
0  006  i  3 
330EOO 
300630 
J  304.0 
000660 
000o93 
0C0730 
000723 
0007.0 
0  0  0  7  4  3 
3  4  3  7  " 
■3.0*0: 
ocofj: 
0006.: 
0 .0  -1  6L 
030693 
040930 
040920 
9  0  0Q . 0 
000964 
0009*0 
0  0  10  3  0 
OOICO 
0  d 10 .3 
0  0106  3 
0C1C  *  3 
301130 
J  011  70 
0311.0 
301153 
0"11*U 


1  7 


GO  TO  60 

001200 

55 

IF  (IERR  .EQ.  3)  HRI  TE  ( 6 , 3  05  0  ) 

001220 

IO«  =  ( Jl*l)  /2 

301240 

WRITE  (6,3060)  NMA  X ,  I  OK 

0  012  dO 

50 

REAO(5,13UO)  CX 

001250 

IF  (  CK  .El.  ENO)  GO  TO  70 

001303 

SO  TO  60 

001320 

70 

IE  <J1>  =  I-1 

0  013LQ 

IE  (J2)*I-1 

001360 

50 

CONTINUE 

0013  90 

IF  (IERR)  130,100,10 

001 LOO 

no 

“A  XT  =  HA  XO ( IE ( 1 ) , IE<3) ,IE(5),IE(7)  ,I£(9) l-NS 

001420 

00  200  J  =  1 , 9 

301440 

n=IE  (J)-IS  <  J)  *1 

901460 

N1=IS< J) *NS 

001440 

N2=IE( J1-NS 

001500 

N3  =N 1  +  NC 

001520 

N4=N2-NS 

0  015-0 

n5 =N3»NS 

001560 

n6=n4-nS 

001540 

00  160  1-1,12 

001600 

FMN(  I)  =  CON 

001620 

160 

FNX(I)=-C0N 

001640 

I*IS <J) 

0ul660 

CALL  SM(T,X(I  ,J)  ,XX(I,J)  ,N,NP) 

031680 

CALL  SM(T,Y<I,  J)  ,YT(I,  Jl  ,N,NP) 

001730 

CALL  SM(T,Z(I,J) ,ZZ(I, Jl ,N,NP) 

001720 

COMPUTE  VELOCITY  COMPONENTS! 

001740 

call  OEPIY1  (T  ,  XX  (  I,  J  )  ,  X  (I ,  J)  ,N,NP,1 ) 

001760 

call  0ERIV1(T,YY (I,J),T(I,J) , n , NP , 1 ) 

001790 

CALL  DERIV1(T,ZZ(I,JI,Z(I, J!  ,N,NP,1) 

001803 

DO  1 70  I I =N3, N4 

001820 

X( II  , J) =X (II , Jl/12,0 

001840 

Y(  II  ,  J)  «f(II,J)/lZ,0 

001860 

170 

Z( II , J) =Z(II, J) /12.0 

301880 

COMPUTE  ACCEL  ERA  TION  CO-PONENTS: 

301900 

CALL  0ERIV1(T,X(I,J)  ,XA(I)  , N , NP , 2 ) 

001920 

CALL  OERIV1 ( T , Y( I , Jl ,TA<II,N.NP,2> 

001940 

call  DERI VI (T ,Z(X,J)  ,ZA(I)  ,N,NP,2) 

001960 

LINE =60 

001980 

CO  190  I  =  N 1 ,  N  2 

302000 

IF  (LINE-50)  175,172,17Z 

002023 

1  72 

WRITE (6, 2 500)  TODAY,  CL  OCX  ,  TEST,TITLE,NP 

002040 

WRITE(6 ,2505)  J 

002060 

WRITE<6, 25101 

002080 

LI NE=Q 

002130 

IT? 

EMN(1!*AMIN1( FMN (1),XX(I,J)) 

002120 

FMN(2)=AMIN1(  FMN(  2)  ,  TY  (I  ,  J) ) 

302140 

FMN(3)=AMIN1(FMN(3),ZZ(I,J>) 

002180 

FMX(  1)  =  AMAX1  (  FMX  (  1>  ,  XX  ( I ,  J>  ) 

002180 

FMX(2!=AMAX1<FMX<2),YY(I,J)) 

002230 

Fmx  (  3)  =  AMAX1  (F  IX  (  3)  ,  Z2  (I  ,D») 

002220 

IF  (I  .LT.  N3  .OR.  I  .GT,  N4)  GO  TO  179 

0  022  4  C 

COMPUTE  RESULTANT  LINEAR  VELOCITY! 

002260 

ORES (I) =SQRT (X(I,J)**2*T(I,J)»»2»Z(I,J)»»2l 

002250 

FMN(5)=ANIN1(FMN(5),X(I,J> ) 

FMN  ( 6 ) =AmIN1(FMN<6> , r (I , J) ) 

FMN(7)=AMIN1 (FMN17) ,  2(1,  J)  ) 

FMN(8)=AMIN1(FMN<8> ,  VRES(I)) 

FMX(5)=AMAX1(FMX(5) , X(I,J) ) 

FMX(6)=AMAX1(FMX(6),Y(I,J)) 

FMX(7)=AMAX1(FNX  (7>  ,  Z(I,  J)  I 
FMX(3)=AMAX1(FMX(8),VRES(I)) 

IF  (I  .LT.  NS  .OR.  I  .GT.  N6  )  GO  TO  190 
C  COMPUTE  RESULTANT  LINEAR  ACCELERATION! 

ARES  (I)  =S(2RT  (XA(  I)  »*2+YA(  I)»«2»ZA  (I  > »*2> 

FMN ( 9) =AMIN1(FMN(9> , XA (I) ) 

FMN (10) = AN INI <FHN(10),TA(I)) 

FMN (11) =AMIN1 (FMN (11) , 2  A ( I ) ) 

FMN(12)=AMIN1(FMN(12),AR£S (I) > 

FMX  <9)  =  AMAX1(FMX(9)  ,  XA  (I)  ) 

FMX (10)  =AHAX1 (FMX (10) , Y  A ( I ) ) 

FMX( 11) =AMAX1 (FMX (11) , 2  A ( I ) ) 

FMXl 121 =AMAX1 (FMX (12) , ARES  (I >  > 

GO  TO  185 

179  HRITE(6,2600>  I ,  T  ( I)  ,  X  X  ( I ,  J)  ,  YY  ( I  ,  J  )  ,  22  ( I ,  J) 

GO  TO  187 

190  HR ITE  (6,2600)  I ,  T  ( I)  ,X  X  ( I ,  J)  ,  YY  ( I ,  J )  ,  22  ( I  ,  J)  ,  X  ( I ,  J )  ,  Y  ( I  ,  J  ) 
1,2(1 , J) , ORES ( 1 > 

GO  TO  187 

195  HRITE  ( 6 , 2600)  I ,  T  ( I)  ,X X  ( I ,  J)  ,  YY  ( I ,  J )  ,  22  ( I ,  J)  ,  X  ( I ,  J )  , 

1  Y  ( I ,  J  )  ,  2  ( I  >  J  )  ,  YRES(  I)  ,XA  (  I)  ,  YA(I)  ,  2A(II  ,  AR£S(I) 

137  LINE=LINE*1 

190  CONTINUE 

HR  ITE  (6, 2700)  (FMN(I)  ,1  =  1, 3)  ,  (FMNC)  ,1  =  5,12) 

HRITE  (6, 2750)  (FMX  ( I  )  ,  I  =  1 , 3)  ,  (FMX  ( I )  ,  I  =5 , 12) 

CALL  PLT(  J,N1,N2,N3,N(.,N5,N6,MAXT  ,TEST) 

IF  (J  .LT.  7  .OR.  J  .GT.  8)  GO  TO  200 
JJ=J-6 

FMNC(1,JJ)=FMN(1> 

FMXC  (1 ,  J  J)  =FM  X  ( 1) 

FMNC(2, JJ)=FMN(2) 

FMXC(2, JJ)«FMX(2) 

FMNC  (3,  JJ)=FMN(3) 

FMXC  (  3  ,  U  J)  =FMX  (3) 

230  CONTINUE 

N2=MIN0  (IE  (7)  ,  IE  (  8)  )-NS 
CALL  FACTOR(FCTC) 

N1=HAX0  (IS  (7)  ,  IS(8)  )  »NS 
IF  (N1  .  GT.  NST)  NST=N1 
CALL  PC(FMNC, FMXC, NST, N2, INC, TEST) 

CALL  PACTOR(FCT) 

GO  TO  10 

999  CALL  PLOTE(NA) 

HRITE  ( 6 , 3200)  NA 
STOP  “END  OF  JG8- 
10)0  FORMAT (A10,2F13.0) 

1130  FORMAT ( 8A10 ) 

1230  FORMAT (F5.0.6F8. 3) 

1330  FORMAT ( A5) 


332300 
302320 
002390 
002380 
C  0238. 
j  0  2m  0  G 
302920 
0  029.0 
0"2M60 
002990 
002500 
0  025  20 
0  0  25  m  0 
002560 
002590 
302600 
002620 
0  026MQ 
002660 
002630 
002730 
002720 
002790 
002760 
0  027  90 
002930 
0  0  28  2  3 
002891) 
002860 
002880 
002900 
002920 
002990 
002960 
002980 
003000 
303020 
003090 
003060 
003080 
003100 
003120 
C  031 9  0 
903160 
003190 
003200 
0  0  32  2  0 
0032.0 
003260 
003290 
003300 
303320 
003390 
0u3260 
003380 


179 


i510  FORMAT  (1H1,‘DATE«  •  ,  41 U  ,  12  X,  •  TING  I  •  ,  410 , 1  2X  ,  *  TE  ST  NUMBER i  *,  3P3<.ja 

1  A10//  1X,8A10,5X,I2,»  POINT  QUADRA  TIC  FIT*)  30JL20 

2505  FOP1AT  (  /*  OATA  FOR  VARIABLE  COCE  NUMBER  *  ,  12)  301*.-; 

2510  FORMAM/*  FRAM£  TIME*,  5  X  ,  •  QISPL  AC  EMENT  (I NCHESJ'.loX, ‘VELOCITY  (303463 

1FEET/SEC) ‘,16X, ‘ACCELERATION  (FEET/SEC  SQ> */  0J3LrC 

2*  NO.  (SEC)  X*,8X,*Y*,  8X,*Z»,<.X,2<5X,‘X*,9X,*Y*,  003500 

39X,*Z*,5X, ‘RESULTANT*) )  003523 

2630  FORMAT  (  IX  ,  I4,F7.  3, 3F9.  3.8F1Q.  3)  0  0  35  -0 

2730  FORMAT  (  *  MINIMUM  *  ,  3  X,  3F9 . 3,  8  Flfl  .  3)  0J35SP 

2750  FORMAT (*  MAXIMUM  • , 3 X, 3F9. 3 , 8  FI  0. 3 )  0"353G 

30  30  FORMAT!//*  TEST)  * , A  10 , 5 X , »T I  ME  ERROR  IN  0£CK*,I3,» - T  c I ) =  *,  003600 

1  F7.3,‘  AND  INCORRECT  TIME  *  ‘,F7.3//‘  RE  AO  THROUGH  REMAINING  DECK3-J620 

2S  IN  THIS  TEST  AND  PROCEED  TO  ThE  NEXT  TEST.‘)  303640 

3010  FORMAT!//*  TEST)  *  ,  A 10  ,  2X  , ‘T I  HE  ERROR  IN  DECK‘,13,*  —FIRST  TIME  =  3  0  3fab0 
l‘,F7.3/‘  FIRST  TIME  OOESN'T  MATCH  TIME  DATA  COMPUTED  FROM  GIVEN  OT003630 
2.  •  /  *  SKIP  THIS  TEST.*)  0  0  37  0  0 

3050  FORMAT ( 1H 1)  303720 

3060  FORMAT  < //*  INDEX  OF  INPUT  OATA  POINTS  IS  GREATER  THAN  OR  EQUAL  TO  J  0  37  u; 
l‘,I3,»  FOR  OEC  <• i 13/ *  SOME  OATA  POINTS  MAY  HAVE  BEEN  LOST.*/  30  3  760 

2*  INDEX  OF  THE  FIRST  OATA  POINT  =  l‘T/DT,  WHERE  T  IS  ThE  TIME  JF  T003750 
3HE  FIRST  OATA  POINT.*)  303833 

3230  FORMAT(*l  ENO  OF  JOB?  NUMBER  OF  BLOCK  AOORESSES=  *,I3)  303020 

3330  F0RMAT(‘1TIME  OF  TIPST  POINT  IN  COMPOSITE  PLOT  (TCOMP)  DOESN'T  maTjJ'SLO 
1CH  ANY  STANOARO  TIME  COMPUTED  FROM  THE  GIVEN  DT.*//  003860 

2  •  COMPOSITE  PLOT  MILL  CONTAIN  ALL  AVAILABLE  POINTS.*)  003880 

END  003903 


SUBROUTINE  SM  (X,r,YC,N,NP) 

0  0  3?  2  0 

c 

HP 

MUST  3E  AN  ODO  INTEGER  .GF.  j. 

0039L0 

c 

COMPUTE  THE  COEFFICIENTS  FOR  4  QU40R4TIC  LEAST  SQUARES  FIT  CF  •  NP  # 

003960 

L* 

POINTS  ANO  COMPUTE  THE  FIT  OF  THE  DATA  (NO  DERIVATIVES;  'VC(I)*. 

003938 

DIMENSION  C(3>  i X ( 1 ) ,  Y  <  1)  >  Y  C  (  1 ) 

004330 

Ha  (NP-ll  fZ 

004020 

nn=n-m 

0  340  4  0 

N1 =  N  N4  1 

004060 

00  10  1=1, M 

004080 

10 

VC  <I)=3.0 

004133 

DO  20  I=N1,N 

034120 

20 

TC (I) =0. 0 

004140 

MH  =  M<-1 

004160 

00  100  I=MH,NN 

0  04180 

N1=I-M 

004200 

N2  =  1  yM 

004220 

call  QLSQ(X,T  ,N1,N2,C) 

004240 

YC<IJ=C(i)»X<I)»X(H*C(21»XlI)*C<J) 

0  04260 

w 

vp(n=2.a*c(ii,x<ii+c(2) 

0U42  80 

c 

YPO  < I ) =  2, 0*C ( 1 ) 

0  043  0  0 

1J0 

CONTINUE 

004320 

RETURN 

004340 

ENO 

004360 

I  31 


SU8R0UTINE  OERIVKX,  Y ,  YP  ,  N  ,N  P  ,  I  Q) 

NP  MUST  3£  AN  000  INTEGER  .GE.  3. 

10  =  1  FOR  FIRST  JERI  1/ATI  VE . 

10  =  2  FOR  SECONO  OERI V  AT  I VE • 

COMPUTE  THE  COEFFICIENTS  FOR  A  QUADRATIC  LEAST  SQUARES  FIT  OF  »NP* 
POINTS  ANO  COMPUTE  THE  FIRST  DERIVATIVE  • YP ( I ) # . 

DIMENSION  C  (3 )  ,  X  (  1 )  ,  Y  (  1)  jYP(i) 

M=(NP-1) /2 
<=M»M»IO 
NN=N-K 
N1=NN*1 
DO  1C  1=1, K 
10  YP(I)=C.O 
00  20  I=N1,N 
20  YP ( I ) =0 • 3 
HM=K+1 

00  100  I =MM, NN 

N1=I-M 

N2=I *M 

CALL  QLSQ<X,Y,N1,N2,C) 

YP(I)=2.a»C(l)»X(I)»C(2) 

YC(I)=C(l),XCI)*XtI)»C«2)*X<I)*C(3> 

YPP(I)=2.0*C(lt 
1J0  CONTINUE 
RETURN 
ENO 


004380 

004430 

004420 

0  0  ^  -  0 
o  g**  -*so 

004480 

004500 

004520 

004540 

004560 

004580 

004600 

004620 

004640 

004660 

004680 

004700 

004720 

004740 

004760 

004780 

004800 

004820 

004840 

004860 

004880 


18  2 


o  o 


C 

C 

w 

c 

c 

c 

c 

c 


SUBROUTINE  QLSQ<X,T, N1,N2,C) 

01  ME  NS  I  ON  X<1>  ,Y<1) ,C(1> 

THIS  SUSROUTINE  COMPUTES  THE  QUADRATIC  LEAST  SQUARE  COEFFICIENTS 
•0(3)*  FOR  NP  OATA  POINTS  (NP  MUST  BE  AN  OOD  INTEGER  ,GE.  3). 
THE  OATA  NEED  NOT  BE  EQUALLY  SPACED. 

C(l)*(X*»2)+C(2)*X*C(3)=t 
C<  1)  »X*C  (2)  =Y 

SUBSTITUTE  XP=X-FF,  WHERE  FF  IS  X((Nl»N2)/2> 

THEN  C<  3)  =C  (  3)  *C  (1)  •FF*FF-C<2I»FF 
C  (  2)  =C  I  2>“2.  3*C  <1)  *FF 
Ctl)=C(l) 

F(Al,A2,A3,81,82,B3.ClfC2,C3)=Al»(32»C3-a3»C2) ♦ A2» ( 3 3*C i - 31*C 
1*<31»C2-32*C1) 


a  0490 o 
a  04920 
304940 
304960 
0  04980 
005000 
005C20 
3  G5G  ■*  0 
0  05060 
005080 
005100 
305120 
0  05140 
3) +A3005160 
3  U  5 1  8  0 


FN=FL0AT(N2-N1+1)  005230 

NN=<Nl*N2)/2  835220 

pp=X(NN>  005240 

21-0  005260 

22*0  005280 

23*0  005300 

24=0  005320 

25*0  305340 

26=0  005360 

27=0  005330 

10  00  20  I=N1,N2  005400 

X2*X(I)-FF  305420 

X1=X2»X2  005440 

21*2 1*X2  005460 

22*224X1  005483 

23*234Xl»X2  0.5500 

24=  24  4X 1*X1  005520 

25*25*T( I)  3  u 55 4 0 

26*264X2«Y (I)  005560 

27=274X1»Y<I>  005580 

20  CONTINUE  305600 

0EN*F(24,23,22.23,22(21,22,21,FN>  005620 

C < 1)  =F<  27, 26, 25,23,2  2, 21 ,22,  21,FN)  /OEN  0  0  56-.0 

C  C  2 » *F<  Z4,Z3,Z2,Z7,Z&,  25 , 2 2 , 2 1 , FN » / OEN  0  0  5660 

C(3>  =F<24,Z3,Z2, Z3,Z2, 21,2  7, 26, 25) /DEN  0  0  5660 

C  (3)  *C(3>  4C(1>  »FF*FF-C  (2)  *FF  3  057  0  8 

C(2I =C(21-2.0*C<13 »FF  005720 

RETURN  005740 

ENO  305760 


IS  1 


r : sf  <•  1 «  i, si "str ,  rE^T i 

'  «m  1  n  * t isr , ai ,  r  use,  =■)  ,  ?  i :  5  o ,  •?  i 

1  , 1  I  U .E  (  P  I  ,  r  <  lb  J  I  ,  IRL  3  <  15a  I  ,  0  >?F  r  <  1  50  )  ,  *4  II  50  >  ,  Y4  1 150  >  , 

’l“c'<S  IMN  t:<l50  ) 

■■.3  15  JWJ.O1*/  ,JY/?.C/,jt/4.0/wrv/S,  0/ , n»/  500.  I 
i  1  i.  •  i  <  ;  r  •  <  1 1  ( •«  o  x  T  > '  ’L;  T  >  *  1 1 

.  r.  io. a  .op.  or  .  r.  3.01  xrit- (6,2000)  si 

■'1!>  >,'•  ,'R  -,c  \  m  f  Four  '  '  M  !  £n;.IH  OF  t  I  h€  4*ISi  3T=* 


T .  3.0)  HPiT- (6,2000)  31 
>  M  !  c.NO-1  H  OF  t  :m£  1  X  I  5 :  : 


■  '.0  '  "  t  ,  MF’ 

1 1  i ; i r r  1 1  ♦ «f 
T  r  I  Ml  *  1  )  ::  ll  .  0 

? ;  twsi  -or 
r  n  v  ■  f-  m  m  1  1  ) 

"  ■■■<(')- »  1  i«  ' 
r  .11. 


r  I  f  I  *  1  FHN<  11  1 

1  .  il  1  FMOI  1  1  ■ 


>  ••  t  "■  - 1 "■»  t  <  i  ‘  I  <  (  f  in1  3  n  ) 

lr  '  n  .1 : ,  o.  i>  r  mn<  ;•> -1 -o  .1 

'  ‘"I-  I  "XI  01 

■  m  f !  X I  I  >  a '  ■  :  r  r  *  I  F  »  H  <  3 1  1  1 

.r  i  ’ ;  >(  .  1.  r,  o.o)  f«n(  3»  hn  ( 3)  -  • .  a 

ii  .  i*isra.  a  ,a.a ,  tom:  t*r.  ,  - 10  ,st  ,0.  0 ,0.  c  ,di  ) 

a*  rsro,  a,  j,  9 ,  iihx  oisp  <  :n>  ,  u  ,sr , 90.  o,fhn<  i>  ,2y) 

Mil  4XI3C-0.  75,0.0,  UMT  DI3P  <1  N )  ,  1 1  ,  S  Y  ,  90.  0  ,  FMN  (  2)  ,  31 1 
CHI.  axrs<-l.  5,0.  „  .11MZ  0ISP  !IN)  ,ll,5r,90.n.r  r*N(3)  ,03) 
CALL  STM30H-1 . 5 . 6.  a  ,a  .  in  ,  6H  T  EST  I  ,90.0,0) 

.ILL.  3YM90L(-I.5,6.ei.,a.l«*,'resi  ,90.0,10) 

CALL  iYM'in  (-1.0 ,0.9  ,0.14,  IOHVYPHiHE  COPF  I  ,90.3,1?) 

Hi  NMMEP  ('  1.0  .  «.  1 ,0.  IP,  fPN.uo.  0, -1) 
r  an  PL  f  Tf  »  <<  <N1  ,  J)  ,  NP  ,4,F-*N  <  •)  ,  OF,  SY) 

‘HIM  p(  (  r  r  ,  Y  X  <  Nl  ,  Jl  ,  HP  ,  9,F  in  (  7)  ,  CT  ,  ?Y  ) 

■jal.  pi.  r  ’ : ,  rz  (  ni  ,  j),MP,a,FWN(j),or,SY) 

C.nt  PL  O’  (0.0 , 5.  3  , -3) 

LJn.  i  t  I?  I  0.  i  ,  3.  3 ,10nl  THE  (SEC)  ,-10  ,ST  ,  3.  3  ,0.  0  ,  CT  I 

•-■'’*1-  41“  t  Ml  I  F  XX  I  Si  ,  r»|N  If,  |  ,  r  MN<  ~  )  ,  r  HN  I  P )  ) 

HIM'Fl.iia  I  (  IF  T  X  <F'*N|  ) 

:r  ’’PM  ,Lr.  0.0)  VHM=/X|N-1.3 

r.su  4*1  31  a.  8  . 1.  8. 17HVFI  OC  ir  X  (  r  r /SFC)  ,  1  7,  srt  90.  |J  , 

>|p  -‘,1,.-  NT., 

Ml  M  X  -  1 

9  0  Hl.NP 
r  r  c  t  )  t  X  (  ; ,  NF  i 

rr  inp*  l  ;  - o .  o 

tt i m  r ♦ ? i »nr 

.  .1'  .  PI  "  I.THIJ.  Jl  ,HP,x,<xx,  JV,,)I 
mi  i  'I  ,nx’.  i)  ,np,  i,,xx.nv,:;n 
111  ’!  '  '  T  ,  (  M  3  ,  I )  ,  MP  ,  O  ,  J  X  •! ,  /  ,  ‘  f 
'■111  |  l|  1  ,  ,»F  ,")'l  ICI,  '  \)  .  'I 

1  I  >  0 . 3  .  9.  3  ,  -  M 

ni.i.n.iJ'ir  ;xf  i  .  j  .  -  io  ,  ,  i.  i , .  .  o , '  t 

'  '  ■  If  M  ,  I  XXI’  II  >  •  *  I  . :  -•  M  I  •  ?  ■  > 


N  3. 

,NP,h,^s,JV, 

J  > 

s  x 

n 

,MP,  ^  ,  4  M  N  ,  ?  V 

:: 

N  J> 

t  > 

MP  f  *  ,  V  -1  *1  ,  / 

■  f 

9  F  ,  I  M  X )  ,  MP  ,  ■■  .  I  VI  , 
3  .  9.  3  ,  -  M 
i  .i.n,  lO'ir  * xr  I  .. 

I  <  1 1  r  h>i  (  •  1  |  ,  :  t 


3057-3 
3056)0 
3x5620 
0056-0 
)  j  5  d  F  3 
335- 60 
03593 0 
3  059  2  0 
C  J53<.0 
0  05  9  5  U 
0  J53  « 0 
306000 
0  060  20 
x  060  - 0 

0  C6060 
006060 
006130 
306120 
3x61x0 
3  06 1  o 0 
006160 
006300 
0062 30 
306200 
3  0o2  o  3 
006260 
006303 
006320 
306.3  63 
036260 
006360 
006600 
J  0662  0 
0366X0 
0  066 6  3 
006-60 
306500 
3  065  2  0 
0  0  b6  x 0 
0  061-60 
3x6e»0 
srbboc 
0  .066  2  0 
0  Q  h  b  *4  0 

?  C  fr  h  *  x 
3  J  f>  t~  a  T 

a  ub/ oo 
o  o  *s  r  o 

J  0  *>  '  •*  o 

vl  7  i  Z 


A*H=FLO/!r<IFT*(FPN/10C.a>>  *130*3  1  .'<30  - 1 

if  <fpn  ,lt.  o.o>  AFCN=AHN-)no.c  aab-'"i 

CAUL  AXIStd.O,  9.0  ,1«HA  crEI.  (  r  I  /  FF  C  =  r  1  ,  1  H  ,  r  '  ,  A  j  ,  1  ,  '  •  i .  '  i  9  46  m  3 

NP  =  S6-NF.l  0J65‘*’ 

NF=NF-1  3  d  ►,  A  F  0 

DO  100  1  =  1, NF  3  Ob  if  I 

1I0IT(I)=T(I.NF>  3  4,’C  1  3 

tt  (mph  i  -a.n  33?n 

IT  (  NF  *  ?  )  r  01  )  0.’  0  u  ; 

CALL  pi  <  T  T  ,  «  A  (  ’35)  ,  NP  ,4  tAhN  ,a  A  ,$T  )  3  D  7  0  ►)  0 

CAUL  Pl.  (  T  T  ,  YA  (  N5>  ,NP,9  ,  APN  ,JA  ,Sr  )  3 3 T 9 3 0 

CALL  PI  1 1  T  ,ZA  (  v(K)  ,NP  ,  APN  ,D  A  ,SY)  107:10 

CAUL  PL  (  I  •' ,  A?F$<N5>  ,  MP,?,AC’I  ,’)A  ,c  m  3  971 '5 

CALL  PL  Or  !  FT*  e.  9  ,  -  10  .n  »'  .1  0  /  1  '■>  9 

pc  T'lP’J  DIM*  ■' 

Fn  0  ’  "•  ’ 


I 


SUBROUTINE  PL  (  T,  T  ,  NP  ,NSYH,  TIN  ,  OY  ,  SY  >  307200 

CINENSION  TCi;,T(l)  0C7223 

CATA  lNl/20/  0072-0 

N1=NP*1  007260 

N2=NP*2  007250 

Y<N1)=Y4N  007300 

Y  <  N2 ) =  Q  Y  0  07320 

SS=SY  0  u  73  40 

IF  (0Y-100.)  1J, 20,20  007360 

10  SS=SS*1.  007380 

•SO  TO  3 C  007400 

20  SS=SS»0.5  007420 

5Q  YNX=YNN*3S*OY  0074-0 

30  60  1=1, NP  007460 

IF  (Yd)  .or.  rnxi  raisYMx  007480 

60  CONTINUE  007500 

CALL  LINE  (  r  ,  Y,  NP,  l.INT  ,NSTN)  007520 

C  WRITEC6, 20001  T( D  , T (1) , T <NP> , Y(NP>  ,T INI)  ,T(N2)  ,  Y-N, OY , SY ,Yhx ,  007540 

:  1  SS.NP.NSYM  007560 

32010  FORMAT < 1X,11F9.3, 15, 13)  007550 

RETURN  007600 

ENQ  007620 


1  'J.t; 


SU3R0UT INE  PC (FMNC.FMXC.NST, N2.INC, TEST) 

COMMON  X<150,9),r(l5a,9>,Z(l50,9>,XX(150,9),YYli50,9),ZZ(l5C,3l 
DIMENSION  FMNC <3, 2) , FMXC <3 ,2) 

DATA  SX/5.a/,  SZ/5.0/  ,JEL/2.3/,HT/0.  105  /  ,  Jl/7  /  ,  J2/?./,  ISY7/  2  /  ,  IS  H 
1/ 

FQ  EL =1. O/OEL 

ynx=AMAX1  <  FM  xC  <2,  1) ,  FM  xC  (2 ,2)  ) 

YM<rF^OAT(  I  F  I  X  (YMX)  ) 

IF  (YMX  ,GE.  0.3)  YPXsYHX.1.0 
ynn=Ahini(FmnC<2,1) , F  MNC (2,2) > 

S Y  =  (  YNX-YMN)  »90EL 

:*iFix(sn 

IF  (SY  .ST.  FLOAT(I))  SY“FLOAT(I) *1*3 
IF  (  SY  .ST.  12.0)  30  TO  25 

30  T  2  7  0 

35  SY  =12.  0 

YM  X=  YHN.SY*OEL 

IF  (FMXC (2,1)  .l£.  YMX)  GO  TO  50 

00  4 0  IiNST,N2,INC 

IF  <YY(I,J1)  ,GT.  YMX)  YY(I,J1)=YMX 
.0  CONTINUE 

50  IF  <  FM  X  C  <  2 , 2  >  . t£ •  Y  NX )  GO  TO  70 

00  50  I  =NST ,  N  2 , 1  N  C 

IF  (  YY  (  I  ,  J2)  ,GT.  YMX)  TYiI,J2)-YNX 
50  CONTINUE 

7  0  XMN=ANIN1(FMNC  (1,1)  ,  FMNC  (1,2)) 

ZMN=AMIN1  (FMNC  (3, 1)  ,  FMNC(  3,2)  ! 

XM X* XHN*OEL* <  SX«0.5I 
ZMX=ZMn*0EL*(SZyQ.5> 

IF  (  FMXC  (1,1)  .LE.  X  NX )  GO  TO  90 
00  80  I  =N$T , NZ , INC 

IF  (XX(I.Jl)  .GT.XMX)  XX(I,Jl>*XHX 
10  CONTINUE 

90  IF  (FMXC(1,2)  .LE.  X  MX )  GO  TO  110 
00  100  I=NST,N2,INC 

IF  (XX<I, J2)  .  3T  •  XMX)  XX(I,J2)=XNX 

130  CONTINUE 

110  IF  (F“XC(3,1>  .LE.  Z MX )  GO  TO  130 
00  120  I =NST , N2, INC 

IF  (ZZ(I,J1)  •  iST  .  ZMX)  ZZ(I,J1)  =  ZMX 

120  CONTINUE 

130  IF  ( FMXC (3,2)  .LE.  ZMX)  GO  TO  150 
00  140  I=NST , NZ , I NC 

IF  (ZZ(I,J2)  .GT.  ZMX)  ZZ  ( I,  J2)  -ZMX 
140  CONTINUE 

150  CAUL  AXIS (0.0 , 0. 0 , 11MT  3ISP  ( IN)  , -1 1 ,SY , 0 . 0 , YMN , CEL  I 
CALL  AXIS  (0.  0  ,0.  0  ,  11MZ  01' •  (  IN)  ,  11  ,  SZ  ,  9«  .  0  ,  ZMN  ,  DEL  ) 


00  170  I  *NST  ,  N  2  ,  I  NC 
Y1=(YY(I,J1)-YMN)‘RCEL 
Z1  -  (  ZZ  (  I ,  Jl)  -  Z“N)  *9 DEL 
CALL  SYMBOL  (Yl.Zl.HT.ISY 7,3.  0,-l> 
Yl= ( YY ( I , J2) -Ymn) *9CEL 
Zl= ( ZZ( I , J2) - ZMN) *90 EL 
170  CALL  SYMBOL (Y1 ,Z1 , HT , ISY5, 0. 3,-2) 
FALL  PL  JT  (  0. 0  ,  m.  0  ,-3  ) 


.075-.  0 
0  07bo0 
0  3  76  0 
73007733 

0  A  7  7  7  2 

0  077  40 
0  0  7  7  5  0 
0  0  77  5  0 
0  0  7  £  0  C 

oozaz: 

0  07940 
0  Q  7  8  6  0 
307550 
007900 
0.7923 

007940 
007950 
0.7980 
008000 
0  080  20 
o  oe040 
008060 
008080 
008100 
008120 
308140 
OOSlbO 
008130 
008200 
003220 
008240 
008260 
008280 
008300 
008323 
3  08340 
003360 
003350 
008400 
003423 
3  094-0 
0  0  345  0 
0.8480 
003500 
303520 
0085-0 
008560 
008960 
00860  0 
008623 
. 086-3 
003660 
0  086  1  0 
.03700 
008770 


APPENDIX  C 
PROGRAM  RSD 


n  n  n  o  n  o  n 


r 


PROGRAM  RSIK INPUT . OUTPUT . TAFE7. TAPES* INPUT . r APE6=0UTPUT )  OOOIOO 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX000120 
=  000140 

THIS  RESTRAINT  SYSTEM  DYNAMICS  <RSD>  PROGRAM  DRAWS  6  GRAPHS  WHICH 
SHOW  THE  MOTION  OF  THE  HEAD*  SHOULDER*  ELBOW*  WRIST*  HIP*  KNEE*  AND 
ANKLE  AT  6  TIME  POINTS  DURING  THE  TEST. 


THE  INPUT  VARIABLES  READ  BY  SUBROUTINE  INPT  ARE  DEFINED  IN  THE 
WRITE-UP  DESCRIBING  THE  INPUT  DATA  FORMAT. 

THE  COMMENTS  IN  THIS  SOURCE  LISTING  SHOULD  ADEQUATELY  DOCUMENT  THIS 
SMALL  PROGRAM. 

THE  FOLLOWING  5  SUBROUTINES  ARE  PART  OF  THIS  PROGRAM! 

FRAME  —  DRAWS  THE  PLOT  FRAME  AND  THE  SEAT  IN  THE  FRAME* 

BODY  —  DRAWS  BODY  ELEMENTS! 

TANG  —  COMPUTES  AND  DRAWS  TANGENT  LINES  BETWEEN  BODY  ELEMENTS! 
INPT  —  READS  ALL  DATA  EXCEPT  THE  TITLE  CARD*  COMPUTES  CALIBRATION 
FACTORS.  AND  CONVERTS  DATA  FROM  COUNTS  TO  INCHES. 

INTRPL-  INTERPOLATES  SHOULDER  HARNESS  POINTS  BETWEEN  THE  FIRST  AND 
FIFTH  BELT  FIDICUAL. 


000160 
0001 GO 
000200 
000220 
000240 
000260 
000280 
000300 
000320 
000340 
000360 
000380 
000400 
000420 
000440 
000460 
000480 
000500 
000520 

C«XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX000540 

DIMENSION  DATA  ( 1024  >*PX<6).PY<6).TITLE(6)  000560 

COMMON  X< 18) . Y< 18) ,R<7> . ANG. SX2.SY2 . ITM  000580 

C  PX  AND  PY  CONTAIN  THE  SIX  PLOT  ORIGINS  IN  SEQUENCE!  000600 

DATA  PX/O .0*3. 25 *3. 25 >-6.5*3. 25 . 3 . 25/ . PY/4 . ,0.*0.*-3..0.*0./  000620 

CALL  PLOTS  < DATA  *  1024 . 7 )  000640 

C  PLOT  DATA  USING  A  92  X  SCALE  FACTOR!  000660 

FCTR=0 • 92  000680 

CALL  FACTOR (FCTR)  000700 

C  IP  IS  THE  TIME  OR  PLOT  INDEX!  IP  IS  INCREMENTED  FROM  1  TO  6  FOR  THE  6000720 
C  TIME  SAMPLES!  000740 

10  IP=0  000760 

C  READ  AND  PRINT  THE  PLOT  TITLE!  0v07B0 

READ! 5* 1200 )  TITLE  000800 

IF  (EOF (5))  99 -',20  000820 

20  WR I TE ( 6  *  2200  )  TITLE  000840 

WR I TE ( 6 . 2300 )  000860 

C  SUBROUTINE  INPT  READS  THE  REMAINING  SETUP  DATA  PLUS  THE  0  TIME  DATA  000880 

C  AND  CONVERTS  THE  DATA  FROM  COUNTS  TO  INCHES!  000900 

CALL  INPT (IP)  000920 

C  CONVERT  RADII  TO  PLOT  SCALE  INCHES!  000940 

C  THE  PLOT  SCALE  IS  1/2  INCH  =  1  FOOT  (BEFORE  APPLICATION  OF  SCALE  000960 

C  FACTOR  'FCTR'  ABOVE)!  000980 

DO  30  1*1*7  001000 

30  R( I )=R( I >/24.  001020 

WR ITE ( 6  *  2000 )  < R ( I ) * I» 1  *  7 ) » ANG  001040 

IP*IP+1  001060 

11=18  001080 

GO  TO  55  001100 

50  IP=IP+1  001120 

C  CALIB  IS  AN  ENTRY  POINT  IN  SUBROUTINE  INPT!  DATA  ARE  READ  AND  001140 

C  CALIBRATED  FOR  THE  IP-TH  FRAME!  001160 

CALL  CAL  I B ( IP )  001180 


r  j  rj 


r 


11=16 

C  CONVERT  ALL  X  AND  Z-AXIS  DATA  TO  PLOT  SCALE  INCHES  AND  ADJUST  TO 
C  LOWER  LEFT  PLOT  ORIGIN  <X  AND  Z  ARE  PRESENTLY  REFERENCED  TO  THE 
C  INTERSECTION  OF  THE  SEAT  BACK  AND  SEAT  PAN).' 

35  DO  60  1=1.11 

X(I)=X(I>/24. 0+2.0 
60  Y(I)=Y<I)/24.0+0.5 

C  PRINT  X  AND  Y  DATA  IN  PLOT  SCALE  INCHES  1 
WR I TE ( 6 , 2 1 00 )  <X< I > . Y< I ) . 1=1.11 > 

C  SET  ORIGIN  FOR  PLOT  'IP'! 

CALL  PLOT  < PX < IP >  »PY ( IP > »— 3 > 

C  10  AND  IA  CONTROL  ORDINATE  AND  ABSCISSA  ANNOTATION  (0 —  ANNOTATION 
C  IS  OMITTED!  1 —  ANNOTATION  IS  DRAWN > 1 
10=0 

IF  (IP  .EQ.  1  .OR.  IP  .EQ.  4)  10=1 
I  A=0 

IF  (IP  .G£.  4)  I A“ 1 
C  DRAW  PLOT  AND  CHAIR  OUTLINE! 

CALL  FRAME ( 10 . I A ) 

C  DRAW  FIGURE  IN  THE  CHAIR! 

CALL  BODY 

IF  (IP  .LT.  6)  GO  TO  30 

C  PRINT  PLOT  TITLE  BELOW  THE  SET  OF  SIX  PLOTS! 

CALL  SYMBOL (-5. 95.-1 .0.0. 14. TITLE. 0.0, 60) 


001200 
001220 
001240 
001260 
001280 
001300 
001320 
001340 
001360 
001380 
001400 
001420 
001440 
001460 
001480 
001500 
001520 
001540 
001560 
001580 
001600 
001620 
0016^0 
001  660 


CALL  PLOT(S. 0,0. 0.-3)  001680 

GO  TO  10  OC 1 700 

999  CALL  PLOTE  001720 

STOP  ‘END  OF  JOB*  001740 

1200  FORMAT ( 6A10 )  001760 

2000  FORMAT ( *  RADII  IN  PLOT  SCALE  INCHES  PLUS  THE  NOSE-TRAGEON  ANGLE  1001780 
IN  RADIANS  ARE!*/( 11X.8F10.3) )  001800 

2100  FORMAT!*  CALIBRATED  DATA  POINTS  IN  PLOT  SCALE  INCHES  ARE!*/  001820 

1  (llX.8F10.3n  0018-n 

200  FORMAT ( *1  TEST  TITLE!  *,6A10>  001860 

300  FORMAT!//*  CALIBRATION  DATA,  RADII,  AND  CALIBRATED  DATA  ARE  PPINTE001880 

ID  IN  THE  FOLLOWING  SEQUENCE  FOR  INDEX  1  =  1  TO  16!*/  00 1  800 

2  5X.*MIP.  KNEE,  ANKLE,  SHOULDER,  */5X.*ELB0W,  WRIST.  TRAGEON,  N0SE0Ol<’2O 

3»*/3X.*LAP  HARNESS  BUCKLE,  AND  7  SHOULDER  HARNESS  POINTS.*//  001840 


4*  CHECK  WRITE-UP  OF  INPUT  CARD  FORMATS  FUR  VARIABLE  DEF IN  I T IONS . * ' 00 1 «40 


END 


001880 


i 


i 


noon 


c 


c 


c 


c 


c 


c 


c 


SUBROUTINE  FRAME ( 10. IA)  002000 

002020 

THIS  SUBROUTINE  DRAWS  THE  PLOT  FRAME  PLUS  THE  CHAIR  WITHIN  THE  FRAME • 002040 
THE  PLOT  SCALE  IS  1/2  INCH  -  1  FOOT.  002060 

002080 

COMMON  X< 18) . Y< 18) .R<7) .ANG.SX2.SY2. ITM  OO^lOO 

DIMENSION  I ABSC <7),I0RD<5)  002120 

DATA  IABSC/2H-4.2H-3.2H-2.2H-1 »2H  0.2H  1.2H  2/ . I0RD/1H0 . 1H1 , 1H2 .  002140 

1 1H3 » 1H4/ .HGHT/0 .07/ » SX/3 . 0/ » SY/2 . 5/  002160 

DEFINE  IMAGE  FRAME!  002180 

CALL  PLOT <0.0. 0.0. 3)  002200 

CALL  PLOT < SX >0.0. 2)  002220 

CALL  PLOT  <  SX .SY . 2 )  002240 

CALL  PLOTCO. .SY.2)  002260 

CALL  PLOT <0. .0. .2)  002280 

DRAW  DASHED  LINE  AT  DECK  HEIGHT — 2.94*  ABOVE  ABSCISSA!  002300 


Yl*2. 94/24.  002320 

XD»0. 096774  002340 


X1=-XD 

DO  20  1*1.16 
X1*X1>XD 


002360 

002380 

002400 


CALL  PLOT (X1.Y1.3)  002420 

X1»X1+XB  002440 

20  CALL  PLOT <X1»Y1,2)  002460 

DRAW  X-AXIS  TIC  MARKS!  002480 

X1»0.  002500 

Yl*0.07  002520 

DO  40  1*1.5  002540 

Xl-Xl+0.5  002560 

CALL  PLOT (Xl.0.0.3)  002580 

40  CALL  PLOT (X1.Y1.2)  002600 

DRAW  Y-AXIS  TIC  MARKS!  002620 

Xl-0.07  002640 


Yl-O. 

DO  60  r-1.4 
Yl-Yl+0.5 


002660 

002600 

002700 


CALL  PLOT <0.0.Y1»3)  002720 

60  CALL  PLOT <  XI » Y1 ,2?  002740 

FOR  IA  0.  DRAW  ABSCISSA  ANNOTATION!  002760 

IF  < I A )  85,85.70  002780 

70  X 1 »-l . 54HGHT  002800 

Y1—.12  002820 

DO  80  1*1,7  002040 

CALL  SYMB0L<X1,Y1,HGHT,IABSC<I),0.0,2)  002860 

80  Xl-Xl+0.5  002880 

FOR  10  0,  DRAW  ORDINATE  ANNOTATION!  002900 

85  IF  <I0)  120.120.90  002920 

90  X1  —  1.54HGHT  002940 

Yl— 0.3BMSHT  002960 

DO  100  1*1.5  002900 

Y 1 *Y 1 +0 • 5  003000 

100  CALL  SYMBOL  <  X 1 , Y 1 • HGHT  » IORD< I). 0,0,1)  003020 

PRINT  ELAPSED  TIME  IN  UPPER  LEFT  CORNER!  003040 

120  CALL  SYMBOL  < 0. 2 . 2 . 25 . HGHT . ITM. 0 . 0 . 3 )  003060 

CALL  SYMBOL  <0.48,2. 25, HGHT . 4HMSEC ,0.0.4)  003080 


192 


c 

ORAM  ScAT  CONFIGURATION  1 

00310C 

c 

SX2.SY2  ARE  THE  COORDINATES  OF  THE  UPPER  LEFT  CORNER  OF 

THE 

CHAIR 

003120 

c 

SEAT  pan:  THE  SLOPE  OF  THE  SEAT  PAN  IS  7.25  DEGREES  ANQ 

THE 

SLOPE 

033140 

c 

OF  THE  SEAT  SACK  IS  12.67  OEGREES. 

093160 

SX2*1. 261 

003130 

SY2*C.594 

003200 

CALL  PL0T<1. 261, 0.5.3) 

003220 

CALL  PLOT  <SX2  ,  SY?,2) 

003240 

CALL  PLOTC2.0 ,0.5.2) 

003260 

CALL  PL0T(2. 36,2.19.2) 

003280 

c 

ORAM  SEAT  BACK  HEAD  REST* 

003230 

CALL  PLOT (2. 262, 1.63 7, 3) 

303320 

CALL  PL0T(2.223,1.646,2) 

003340 

CALL  PLOT (2.  314,2.052,2) 

003360 

CALL  PL0T(2.3S6, 2.043,2) 

003380 

RETURN 

003490 

ENO 

003420 

193 


ci  o  o  ci  ci  ci  ci  ci  ci  ci  o  o  o  ooo  o  c>  o  o  o 


SU3RCUTINE  SDOY 


003440 
003460 

THIS  SUBROUTINE  ORAWS  THE  BOOT  ELEMENTS  PLUS  THE  SHOULDER  HARNESS  6NOao34dO 
LAP  3ElT  POINTS  IN  EACH  FRAME.  0"3503 

003520 

DIMENSION  U<9),Y<9>  003540 

COMMON  X1,X2,X3,X4,X5,X6, X7, Ao,3XCa> ,XS3, XL3,Y1,Y2,Y3,Y*,Y5, Y&,Y7,003560 
1Y3,3Y(S>  ,  YS3,YL3,Pl,R2,R3,R4,R5,Ro,R7,ANG,SX2,SY2,IT.M  a u 35 3  0 

DATA  Al/a..J/,A2/36<'.0/IHGHT/5.C7/,  I3C3/4/  3x36J3 

0RAW  HIP  ANO  KNEE  CIRCLES  t  003620 

CALL  CIRCLE(Xl*Rl,Yl,Al,A2,Rl,Rl,At;  Qu3640 

CALL  CIRCLE  <X2»R2»Y2|Al,A2»R2iR2»At)  JC366S 

IPl  T*1  FOR  HIP-TO-KNEE  TANGENT  LIMES  AnO  IPLT>1  FOR  ALL  OTHER  0x3630 

CALLS  TO  SUBROUTINE  ‘TANGM  0C3700 

IPlT=1  003720 

COMPUTE  HIP-fO-KNEE  TANGENT  LlNESI  003740 

CALL  TANG(X1,Y1,X2,Y2,R1,R2,IPLT,SX2,SY2)  003760 

75  IPLT=2  003750 

ORAN  ANKLE  CIRCLEI  003830 

CALL  CIRCL£(X3*R3,Y3,Al,A2,R3,R3,At)  C03820 

DRAW  ANKLE-TO-KNEE  TANGENT  LlNESl  "036-.0 

CALL  TANG(X2, Y2,X3,Y3,R2,R3,IPLT,SX2,SY2)  003860 

oram  shoulder,  elbow  ano  wrist  circles  ano  tangents i  oo3eao 

call  CIRCL£(X4»R4,Y4,AlfA2,R4,R4,Al)  003900 

CALL  CIRCLE(X5+R5,r5,Al,A2,R5,R5,Al)  003920 

CALL  CIRCLE  <X6+R6«  Y6»A1,A2,R6,R6»A1)  003940 

IPLT*3  003960 

CALL  TANG<X4,Y4tX5,r5,R4,R5,IPLTfSX2,SY2>  0O3980 

IPLT=4  OOmLOO 

CALL  TANG(X5,Y5,X6,Y6,R5fR6,IPLT,SX2,ST2)  004020 

CRAW  HEAO  CIRCLE  I  004040 

CALL  CIRCLE(X7»R7,Y7,A1,A2,R7,R7,AI>  0x4060 

PLOT  EYE  POINTI  004030 

CALL  3YMaCIL(Xa,Y8,HGHT/2. 0,3,0. 0,-1)  1)44100 

COMPUTE  ANO  ORAM  HEAO  Z-AXIS  LINE)  304120 

THETA  —  ANGLE  TRAGEON-NOSE  LINE  MAKES  IN  X,Y  AXIS  THROUGH  TRAGEON  004140 

POINT.  004160 

TH£TA  =  ATAN2<Y8-Y7,X8-X7)  01*4130 

IF  (THETA  ,LT.  0.0)  THETA*THETA+6. 2831853  0342)0 

ANG  —  ANGLE  BETWEEN  TRAGEON-NOSE  LINE  ANO  HEAO  Z-AXIS.  004220 

ANG  IS  COMPUTED  IN  RAOIANO  IN  SUBROUTINE  INPT)  00*240 

TH£T  A*T  MET  A— ANG  004260 

XP*R7*C OS (THETA)  004230 

YPsR7»SIN<TH£TA)  0  b*3 1 0 

XL1=X7*XP  004320 

XL2=X7-XP  0L434Q 

YL1*Y7*YP  J0436C 

YL  2*Y7— YP  0  043*  0 

PLOT  Z-AXIS  LINE  DETERMINED  3Y  POINTS  XL1,YL1  AND  XL2.YL2I  0544)0 

CALL  PL0T(XL1,YL1,3)  0 04420 

CALL  PLOT  (XL2  ,  YL2 , 2)  034440 

WRITE<6 ,2100)  XL1 ,  YL  1,  XL2 ,  YL 2  004460 

PLOT  RESTRAINT  BELT  LOWER  ATTACH  POINT  (XLS,YL8)  PLUS  THE  LAP  BUCKLE  0044d0 

POINT  ( 9X < 1 ) , BY (1) ) t  004530 

CALL  SYM90L(XL9,YL8,HGHT,I3C0,C.a,-l)  004520 
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CALL  PL0T(3X(1! ,8Y(1J,Z)  014540 

C  INTERPOLATE  9  POINTS  BETWEEN  1-ST  AND  5-TH  BELT  POINTS?  INTERPOLATE  004560 

C  X  OATA  FOR  A  GIVEN  Tl  004580 

oy*<8y<5>-8Y(1)>/io.  004600 

00  100  1*1,9  004620 

1J0  U(I)=8Y(1)*0Y*FL0AT(I)  034640 

11=6  004660 

12*9  0P468C 

CALL  INTRPL(I1,8Y<1>  ,8X<1)  ,I2,U,V)  004730 

WRITE  (6,2090)  3X ( 1)  ,  8Y  (1)  ,  (V  ( I)  ,  U (I )  ,  1*1 , 9)  ,  (8X  < I)  ,3 Y( I )  ,  1*5, 3)  304720 

C  PLOT  THE  9  INTERPOLATED  POINTSI  004740 

00  120  1*1,9  004763 

120  CALL  PL0T(V(I) ,U(I),2)  004780 

C  PLOT  THE  LAST  4  SHOULDER  HAFNESS  FOINTSI  004830 

00  130  1=5,8  OC4820 

133  CAlL  PLOT(9X<I),aY(I),2)  004840 

C  PLOT  THE  SHOULDER  HARNESS  SEAT  ATTACH  POINT!  9C4860 


CALL  SYMBOL (XS9,YS9,HGHT,I3CO,0,0,“2>  004883 

RETURN  004900 

20)0  FORMAT ( *  LAP  BELT  ANO  SHOULDER  HARNESS  X,Y  POINTS  ARE  ( BUCKLE  POIN0«4923 
IT,  9  INTERPOLATED  POINTS,  PLUS  THE  LAST  4  SHOULDER  HARNESS  POI NTS )  0 049'»0 
21*/  (11X,  8F1Q.  3)  )  004960 

2133  FORMAT ( *  X,Y  POINTS  AT  BOTH  ENOS  OF  THE  HEAD  Z-AXIS  LINE  ARE!*/  004980 
1  11 X, 4F10. 3)  0  050  JO 

ENO  0U5O20 
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c 
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SUBROUTINE  TANG<XI,Y1,X2,Y2,R1,R2,IPLT,SX2,SY2>  J350-.0 

DIMENSION  LAB  EL ( 2 , 4)  985(50 

OATA  090/1. 57079633/  0J5r60 

1 1 L  AoEL/ 1 0 H  HIP  AND  ,8H  KNEE  ,1QH  KNEE  ANO.SM  ANKLE  ,  005080 

2  1  OH  SHOULDER  A.8HN0  ELBOW, 10H  ELBOW  AN0.8H  WRIST  /  J05130 

THIS  SUBROUTINE  COMPUTES  ANO  DRAWS  THE  TANGENT  LINES  CONNECTING  005120 

THE  TWO  CIRCLES.  THE  CIRCLE  CENTERS  ARE  AT  XI, T1  ANO  X2.T2  ANO  THE  QL514C 
RADII  ARE  R1  ANO  R2.  THE  CIRCLES  WITH  TANGENT  LINES  FORM  THE  BOOT  0U51&0 
SEGMENTS.  005130 

WHEN  THIS  ROUTINE  WAS  COCEO,  Ri  WAS  ALWAYS  »  R2  AND  XI, Y1  WAS  005200 

ALWAYS  FURTHER  FROM  THE  PLOT  ORIGIN  THAN  X2.Y25  THUS  WE  WERE  ALWAYS  005220 
WORKING  FROM  THE  SMALL  CIRCLE  TO  THE  LARGE  CIRCLE.  HOWEVER,  THE  005240 
ALGORITHMS  WERE  OEREVED  SUCH  THAT  THE  COMPUTATIONS  SHOULD  BE  CORRECT  1)05250 
EVEN  IF  THESE  CUNOITIONS  ARE  NOT  FULLFILLEO.  905280 

X0*X1-X2  005330 

Y0=Y1-Y2  005320 

SLOPE  —  SLOPE  OF  LINE  THROUGH  THE  TWO  CIRCLE  CENTER  POlNTSt  "95340 

SLOPE* YO/XO  005360 

THET  AsATAN( A9S (SLOPE  1 1  005380 

FCT*SIGN(1.0, SLOPE)  905400 

3 I ST  —  OISTANCE  BETWEEN  THE  TWO  CIRCLE  CENTER  POINTS)  005420 

OIST*SORT{XO*XO>rO»YO)  005440 

PHI*ASIN<  <R1-P2)  /OIST)  905460 

ANGLES  THETA  ANO  PHI  ARE  REQUIREO  TO  COMPUTE  ANGLES  A1  AND  A2  WHICH  005480 
ARE  THEN  USEO  TO  OEFINE  THE  X  ANO  Y  COORDINATES  OF  THE  TANGENT  005500 

POINTS)  005520 

Al*O90-THETA-FCT*PNI  005540 

A2=090-TH£TA*FCT*PN2  005560 

SU*S  IN(  A 1)  005580 

SL*S IN ( A2>  005600 

CU*-FCT*C0SIA1)  005620 

CL*FCT»COS(A2)  005640 

COMPUTE  X  ANO  Y  UPPER  AND  LOWER  TANGENT  POINTS  FOR  CIRCLE  1 1  005660 

XU1=X1*R1»CU  905680 

YU1*Y1»R1*SU  0Q57J0 

XL1»X1*R1*CL  005720 

YL1*Y1-R1»SL  005740 

COMPUTE  X  ANO  Y  UPPER  AND  LOWER  TANGENT  POINTS  FOR  CIRCLE  2)  005760 

XU2*X2*R2*CU  005730 

YU2*Y2»R2*SU  005830 

XL2*X2*R2*CL  005820 

YL2*Y2-R2»SL  005840 

■LOT  UPPER  TANGENT  LINE)  005860 

CALL  PLOT ) XU1 ,  YU1 , 3)  005880 

call  plot < xuz , yue ,2)  005900 

WRITE (6 ,2100)  LABEL (1, IPLT ) , L  ABEL ( 2 , IPLT)  ,XU1 ,YUi ,XL1,YL1 ,XU2 , YU2 , 0 05920 
1  XL2  , YL2  005940 

PLOT  LONER  TANGENT  LINE)  005960 

50  CALL  PL0T«XL1,YL1,3>  095990 

IF  (IPLT-1)  100,100,60  006000 

80  CALL  PLOT ( XL2 , YL2 ,2)  006020 

RETURN  006040 

30TT0M  HIP-TO-KNEE  TANGENT  LINE  MAY  INTERFERE  WITH  THE  UPPER  LEFT  006060 
CORNER  OF  THE  SEAT  PAN  <SX2,SY2>?  CHECK  ANO  DRAW  LINE  ACCORDINGLY.  3L6050 


IF  IT  JOES  INTERFERE,  COMPUTE  THE  TANGENT  FROM  THE  CORNER  OF  THE  306100 


196 


C  SEAT  PAN  TO  THE  KNEE  CIRCUS.  ,  506120 

C  COMPUTE  SLOPE  OF  TANGENT  LINE  I  306140 

150  SLOP£=( YL1-YL2I/IXL1-XL2)  506160 

C  COMPUTE  T  (YC)  COORDINATE  FOR  SEAT  PAN  SX2  POINT;  IF  YC  »  ST?,  THEN  006130 
C  THE  SEAT  PAN  OOESN*T  INTERFERE  WITH  THE  HIP-TQ-KNtt  TANGENT  LINE)  306200 
YC=SLOPE*(SX2-XL2! +YL2  006220 

IF  (YC  .GE.  SY2)  GO  TO  60  0C624C 

C  COMPUTE  TANGENT  FROM  SX2.SY2  — »  KNEE  CIRCLE  (R2)  I  006260 

C  KNEE  CIRCLE  CENTER  HUST  BE  TO  THE  LEFT  OF  SX2.SY2I  006280 

IF  ( X2  .GE.  SX2)  GO  TO  ISO  0063J0 

C  CIST  —  DISTANCE  FROM  CORNER  OF  THE  SEAT  PAN  TO  THE  CENTER  OF  THE  006320 
C  KNEE  CIRCLE  t  006340 

OIST*SQRT( (SX2-X2) **2* < SY2-Y2) **2>  006360 

IF  (OIST  ,  GT.  R2)  GO  TO  120  006380 

C  OMIT  TANGENT  LINS  FOR  OIST  «  R2— ~ SEAT  PAN  POINT  IS  WITHIN  THE  006403 

C  RAOIUS  OF  THE  KNEE  CIRCLE i  0U642O 

WRITE (6 ,2300)  9IST.R2  336440 

GO  TO  153  006460 

C  ALP  IS  THE  SLOPE  OF  THE  LINE  FROM  THE  CENTER  OF  THE  KNEE  CIRCLE  TO  006480 
C  THE  SEAT  PAN  PO INTI  006500 

120  ALP=ATAN((SY2-Y2J/(SX2-X2) )  006520 

C  COMPUTE  GAMMA  USING  THE  TWO  KNOWN  SIOES  OF  THE  TRIANGLE!  006540 

GAM=AC0S(R2/0IST)  036560 

C  COMPUTE  ■ PHI  *  —  ANGLE  IN  NEW  TRIANGLE  REQUIRED  to  COMPUTE  TANGENT  006580 
C  POINT  XL2.YL2  BELOW!  036600 

PHr*GAM-ALP  006620 

C  COMPUTE  X  ANO  Y  COORDINATES  OF  TANGENT  POINT  ON  THE  KNEE  CIRCLE!  006640 

XL2*X2*PZ*COS(PHl)  0C6660 

YL2*Y2-RZ*SIN(PHI)  006680 

C  DRAW  THE  TANGENT  LINES  FROM  THE  HIP  CIRCLE  TO  THE  CORNER  OF  THE  SEAT  306730 
C  PAN  TO  THE  KNEE  CIRCLE!  006720 

CALL  PLOT (SX2 , SY2 , 2!  006740 

WRITE(6,24uO>  SLOPE, YC.SY2, OIST, ALP, GAM, XLZ.TL2  006760 

GO  TO  60  306780 

150  CAUL  PL OT (SX2 , SY2 ,2)  006803 

2100  FORMAT!*  UPPER  ANO  LOWER  TANGENT  POINTS  FOR  THE  *,A10,A8,»  CIRCLE  "06820 
1AREI*/(11X,8F10.3) )  006840 

2310  FORMAT!*  THE  DISTANCE  FROM  THE  CORNER  OF  THE  SEAT  PAN  TO  THE  CENTE30686B 

1R  OF  THE  KNEE  CIRCLE  **,F8.3,*  THE  KNEE  RAOIUS  =»,F8.3>  106880 

24)0  FORMAT!*  SLOPE,  YC,  SY2,  OIST,  ALP,  GAM,  XL2,  YL 2  FROM  THE  CORNER  006900 

1  OF  THE  SEAT  PAN  TO  KNEE  CIRCLE  TANGENT  POINT  COMPUTATIONS!*/  006920 

2  11X  ,8FlO«  3)  006940 

RETURN  0C6960 

END  006980 
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SU3R0UTINE  INPT(IP) 

DIMENSION  8AF  < 10 ) , XI (7)  ,Y1  (7) ,*2(7)  , T2(7>  ,CAL(16> 

COMMON  X (16) , XS8*  XLB  »Y (16) ,Y S3 , YL 3, R ( 7 ) , A NG, SX2 , SY2, I TM 

this  subroutine  reads  all  input  oata  except  the  'title'  caro, 

COMPUTES  all  CONVERSION  FACTORS  (COUNTS  TO  INCHES),  AnO 

calibrates  all  oata. 

the  OATA  POINT  SEQUENCE  IS* 

INDEX  PARAMETER 

1  HIP 

2  KNEE 

3  ANKLE 

4  SHOULOER 

5  EL  SOW 

6  WRIST 

?  TRAGEON 

3  NOSE 

9  HARNESS  BUCKLE 

13-16  SHOULOER  HARNESS 

DATA  RAO/57. 2957795/ 

C  READ  ANO  WRITE  ALL  TEST  PARAMETER  INPUT  DATA; 

C  ALL  parameter  SYMBOLS  SHOULD  BE  DEFINED  IN  The  WRITE-UP  DESCRIBING 
C  The  FORMAT  OF  THE  INPUT  DATA! 

RE AO  (5,1000)  OPS.OSC.DPP.DSF, XSB,TS8,XL3, TLB, X ASSF.YASSF 
WRITE (6, 3010) 0PS,0SC,0PF,0SF,XS8, YS8.XL9, YLB, XASSF, r ASSF 
RE AO ( 5 , 10  00 )  3AF 
WRITE(6, 3020)  3AF 

READ (5, 1000)  XPF,YPF,XPA,YPA,XSF,YSF,XSA,YSA 
WRITE (6, 3030)  XPF ,  YPF  , XPA ,  YPA  ,  XSF  ,  YSF ,  XSA  ,  Y SA 
REA0(5,1100)  (Xl(I),U(t)  ,X2(IJ  ,Y2(I)  ,1=2,6) 

WRITE  (6, 3040)  (XI  (I),  Y1(I)  ,  X2<I)  ,Y2(I)  ,1*2,6) 

RE *0(5,1000)  TX,TY,£X,EY 
WRITE (6, 3350) TX,TY,EX,EY 
C  COMPUTE  PANEL  ANO  SEAT  CONVERSION  FACTORS) 

PC AL=SQRT ( (XPF-XPA)»*2M YPF-YPA) =*2)/0PF 
SCAL=SQRT( (XSF-XSA) **2*( YSF- YSA) =*2) /OSF 
C  COMPUTE  DISTANCE  from  TNE  FOCAL  POINT  TO  THE  SEAT  (SS)J 
SS  =  ( OPS* OSF) / ( QPF»  (SCAL/PC  AL) *CPF) 

WRIT  E( 6 , 3060)  PCAL,SCAL,SS 

C  COMPUTE  THE  ANGLE  THE  TRAGEON  -  NOSE  LINE  MAKES  WITH  THE  2-AXIS 
C  THROUGH  THE  HEAD) 

OXaTX-EX 

OYsTY-EY 

AMS*  A  TAM  (ASS ( OX/OY )  I 

C  COMPUTE  REMAINING  CONVERSION  FACTORS) 

DO  100  1=1,10 

1J0  CAL(I)=SS*SCAL/(SS*OSC-BAF (I )/2.0) 

DO  HU  1=13,16 
lid  CAU  I)*CAL  (10) 

OCAL=CAL  (13)— CAL  (9) 

C  COMPUTE  RAOII  OF  ALL  BOOT  ELEMENTS  EXCEPT  THE  HEAD  ANO  THE  HIP) 

OO  150  1=2,6 

150  R  ( I )  =SQRT  <  (X2  (I)-XKI)  )**2*(Y2(I»-Y1(II  )  *•  2)  /  (  2. 0 *CAl  ( I )  ) 

ENTRY  CALIB 

C  READ  PHOTO  OATA  FOP  EACH  TIME  SET) 

READ (5, 1200)  ITM 


007009 
007020 
307040 
007060 
007030 
007100 
007120 
907140 
007160 
007150 
0072u0 
007220 
007240 
007260 
007230 
007300 
007320 
007340 
007360 
30733C 
007403 
007429 
007440 
007460 
107430 
007500 
007520 
007540 
007560 
007530 
0076C9 
007620 
007640 
007660 
007689 
007700 
007720 
007740 
007760 
007730 
007800 
007820 
007840 
007860 
007830 
007900 
007920 
0(7940 
007960 
007980 
303000 
008020 
003040 
008060 
0  080  30 
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WR ITS (6  >  210  0 )  ITM  008100 

REaO<5,liaO)  XSFF,YSFF,XSAF,YSAF,*X*I> ,Y(I> ,1=1,16)  008120 

WRITE (6, 3100)  XSFF,YSFF,XSAF,YSAF, *  X  < I ) , Y ( I > , I  =  1 , 16 )  OOSl-O 

C  COMPUTE  CALIB  FACTORS  FOR  3  SHOULDER  STRAP  POINTS  WITHOUT  FIOUCIALSI  008160 
YBU  =  Y ( 9)  0081  30 

YFCT=OCAL/ (Y( 13) -V9U)  008200 

CAL l 10) =CAL(9> ♦YFCT* *Y (10)  -YBU)  008220 

CAl(11) =CAL(9) *YFCT*<Y  <11) -Y8U)  0  0 82  AO 

CAL  (12)  =CAL  (9) *YFCT*  (Y  (12)  -Y8U)  00  8260 

WRITE ( 6 , 2200 )  CAL  0082  30 

C  CALIBRATE  ALL  OATA  FOR  1-th  FRAME)  008300 

XSAF=XSAF/SCAL  008320 

YSAF=YSAF/SCAL  008340 

XF=XASSF-XSAF  008360 

YF=YASSF-YSAF  008380 

00  200  1=1,16  0084)0 

X<  I)  =X(  I)  /CAL  <  I)  *XF  008420 

230  Y *  I)  »Y *  I) /CAL ( I) *YF  008440 

IF  (IP  .GT.  0)  RETURN  008460 

C  COMPUTE  RADII  OF  HIP  ANO  HEAD  (FOP  0  FRAME  ONLY)!  00848Q 

XHR=0.  2307692 3»V  (7)-  1.  3190  769  0  08500 

R ( 7) =(XHR-X(7) ) *COS( 12 «  6667/RAD)  0  0852  0 

YSP=-0.12634*X(1)  008540 

R*l) »<Y*1)-YSP>*C0S(7. 25/RAO)  008560 

RETURN  008580 

1030  FORMAT (5X,10F7,0)  008600 

1100  FORMAT *5X,3F7.0)  008620 

1200  FORMAT ( 5X , A3)  008640 

2130  FORMAT (*1ITH**,A3,*  MSEC  5  INPUT  DATA  FOR  THIS  TIME  FRAME  ARE)*/)  008660 
2230  FORMAT ( *  CALIBRATION  OATA  FOR  THIS  TIME  FRAME  ARE)*/  308630 

1  (11X,8F10.3> )  008700 

3010  FORMAT(*OOPS  ETC. ** , 1 0F1 0 • 3 )  008720 

3020  FORMATS  BAF  ETC.**  .10F10.3)  008740 

3030  FORM  AT  ( *  XPF  ETC.  =*  ,1 0F10.3)  008760 

30m0  FORMAT**  XI  ETC«=*,8F10. 3/ (11X,SF10.3) )  008730 

3050  FORMAT**  TX  ETC.  =*  ,4F10.  3)  008800 

3060  FORMAT**  »CAL  ETC.**  ,3F10. 3)  00882U 

3130  FORMAT(»OXSFF  ETC. =* ,8F 10. 3/ *  11 X, 8F10. 3) )  308840 

ENO  008860 
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subroutine  intrpl  (l,  x,  y,n,u,  v) 
interpolation  of  a  si  ngle-  va  lueq  function 

TAKEN  PROM  COMMUNICATIONS  OF  ACM,  OCTOBER  1972  ,  VOL  15,  NUMBER  12. 
ALGORITHM  NUMBER  433. 

REPRINT  PRIVILEGE  GRANTED  3T  PERMISSION  OF  Th£  ASSOCIATION  FOR 
COMPUTING  MACHINERY. 

THIS  SUBROUTINE  INTERPOLATES,  FROM  VALUES  OF  THE  FUNCTION 
GIVEN  AS  ORDINATES  OF  INPUT  DATA  POINTS  IN  AN  X-Y  PLANE 
AND  FOR  A  GIVEN  SET  OF  X  VALUES  (ABSCISSAS),  THE  VALUES  OF 
A  SINGLE-VALUED  FUNCTION  Y=Y(X). 


C  THE  INPUT  PARAMETERS  ARE 

C 

C  L  =  NUMBER  OF  INPUT  DATA  POINTS(MUST  BE  2  OR  GREATER) 

C  X  =  ARRAY  OF  DIMENSION  L  STORING  THE  X  VALUES l ABSCISSAS )  OF  INPUT 

C  DATA  POINTS  (IN  ASCENDING  ORDER) 

C  Y  =  ARPAY  OF  DIMENSION  L  STORING  THE  Y  VALUES ( OROINA TES )  OF  INPUT 

C  OATA  POINTS 

C  N  =  NUMBER  OF  POINTS  AT  WHICH  INTERPOLATION  OF  THE  Y  VALUE 

C  (ORDINATE)  IS  DESIRED  (MUST  BE  1  OR  GREATER) 

C  U  *  ARRAY  OF  DIMENSION  N  STORING  THE  X  VALUES  (ABSCISSAS)  OF 

C  DESIRED  POINTS 

C 

C  THE  OUTPUT  PARAMETER  IS 

C 

C  V  a  ARRAY  OF  DIMENSION  N  WHERE  THE  INTERPOLATED  Y  VALUES 

C  (ORDINATES)  ARE  TO  BE  DISPLAYED 

Is 

C  declaration  statements 

c 

DIMENSION  X(L)  ,Y(L),U(N)  ,V(N) 

EDUI  VALENCE  <  PO ,  X  3)  ,  ( Q 0  ,  Y 3  )  ,  ( 01 ,  T 3 ) 

REAL  mi.me.ms.mn.ms 

EQUIVALENCE  (UK.OX) , <IMN,X2,A1,M1) , (IMX,X5,A5,M5) , 

1  (  J,SW,SA)  ,  (Y2,W2,W4,Q2)  ,  (Y5,WJ,Q3> 

c 

C  PRELIMINARY  PROCESSING 

13  LO=L 

LMlsLQ-1 

LM2=LM1-1 

LP1*LQ*1 

NO=N 

IF  (L M2  .LT.  3)  GO  TO  90 
IF  (NO  .LE.  0)  GO  TO  91 
00  11  1=2, LO 

IF  (X(I-l)-X(I))  11,95,96 
11  CONTINUE 
TOV=0 


C  MAIN  OO-LOOP 


CO  80  <=1,N0 


308880 
008930 
308920 
003940 
338960 
308980 
309000 
009020 
309040 
0  09060 
309080 
009103 
309120 
009140 
009160 
009180 
009200 
009220 
009240 
309260 
009230 
039300 
009320 
009340 
009360 
009380 
009430 
00942D 
009440 
009460 
009480 
Q0950Q 
009520 
009540 
009560 
009580 
009630 
009620 
009640 
009660 
009680 
009700 
009720 
009740 
009760 
009780 
009800 
009*20 
0C9S4O 
309860 
009883 
309900 
009920 
009940 
309960 
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o  o  o  u  u  o  o 


UK=U (Kt 


o 

C  ROUTINE  TO  LOCATE  THE  DESIRED  POINT 

20  IF  (L  M2  .EQ.  0)  GO  TO  27 
IF  (UK  «G£.  X(L0> )  GO  TO  26 
IF ( UK  .LT.  X < l ) )  GO  TO  25 
IHN=2 
IHX*L0 

21  I*(IHN*IMX1 /2 
IF  (UK  .GE.  X (I) )  GO  TO  23 

22  IMX*I 
GO  TO  24 

23  INN* 1*1 

24  IF  ( I M X  .GT.  INN)  GO  TO  21 
I*  I  NX 
GO  TO  30 

25  1=1 
GO  TO  30 

26  I*LP1 
GO  TO  30 

27  1*2 

CHECK  IF  I=IPV 

30  IF  (I  . EQ.  IPV)  GO  TO  70 
IPV*I 

ROUTINES  TO  PICK  UP  NECESSARY  X  ANO  T  VALUES  ANO 
TO  ESTIMATE  THEM  IF  NECESSARY 

40  J=I 

IF  (J  .EQ.  1)  J*2 

IF  ( J  .EQ.  LP1)  J=L0 
X3*X(J-1J 
Y3*Y  U-l) 

X4*X  (J) 

Y4*Y(J> 

A3*X4-X3 
M3=(Y4- Y33/A3 
IF  (LM2  .EQ.  0)  GO  TO  43 
IF  (J  .EQ.  2)  GO  TO  41 
X2*X  (J-2J 
Y2*Y  (J-2) 

A2*X3-X2 
M2*(Y3-Y2)/A2 
IF  (J  .EQ.  L0>  GO  TO  42 
•*1  X5*X  ( J*l) 

Y5*Y  (J*1J 
A4=X5-X4 
M4*<  Y5-Y4)  /A4 

IF  (J  . EQ.  2)  N2*M3*N3-N4 

GO  TO  45 
42  M4=H3+M3-N2 
GO  TO  45 


009930 

010000 

010020 

3lU04g 

010060 

010033 

010100 

010120 

010140 

010160 

01G180 

010200 

010220 

310240 

310260 

010280 

310300 

010323 

010340 

010360 

010330 

310400 

010420 

310440 

010460 

010480 

010500 

010520 

310540 

010560 

010580 

010603 

010620 

010640 

010660 

010680 

010700 

010720 

010740 

113760 

010780 

010800 

010820 

010840 

010860 

010880 

313900 

010920 

110940 

010960 

010930 

011000 

311020 

011040 

011060 
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1*3  M2*M3 

011080 

M4*H3 

anno 

45  IF  <J  .LE.  3)  GO  TO  46 

811128 

A1*X2-X  U-3) 

011140 

Ml  =  t  Y2-Y<  J-3)  )/A  1 

011160 

GO  TO  47 

011180 

46  M1=M2»M2-M3 

011200 

47  IF  IJ  .G£.  LN1)  GO  TO  48 

011229 

A5*X  (J  +  2I-X5 

011240 

H5*<Y ( J»2)-Y5) 745 

011260 

GO  TO  5C 

011280 

■*8  M5*M4+M4-M3 

311300 

011320 

NUMERICAL  DIFFERENTIATION 

811340 

011360 

50  IF  <1  ,EQ.  LPl)  GO  TO  52 

011300 

W2=A8S  (M4-H3) 

011400 

W3* A  BS<M2-M1) 

011420 

SN*M2*W3 

011440 

IF  <SM  *NE.  0.4)  GO  TO  5t 

011460 

h2*0.5 

011440 

W3*a.5 

011500 

SM*1.0 

011520 

51  T3=<W2*M2*M3*H3) 7SW 

011540 

IF  (I  .£0.  11  GO  TO  54 

011560 

52  M3=ABS(M5-M4) 

911580 

M4=ABS<n3-M2) 

011600 

SH*N3+H4 

011620 

IF  (SN  .NE.  a. a)  GO  TO  53 

011640 

*3*0.5 

011660 

N4*a.5 

011630 

sn*i.o 

011700 

53  T4at(M3*MJ*H4*M4)/SN 

011720 

IF  (I  .NE.  LPl)  GO  TO  60 

011740 

T3»T  4 

011760 

SA  =A  2*A3 

011780 

T4=0 .5* ( M4*M5“  A2*  t A2-A3) '  <  M2*>N3>  t  (S  A*S  A)  ) 

011800 

X3=X4 

011820 

Y3*Y4 

011840 

A3*A2 

911860 

M3*M4 

011830 

GO  TO  6t 

011900 

54  T4«T3 

011420 

SA- A3*A4 

011940 

T3»0.5*tHl*H2-A4*<A3-A4)*OW-M4)  FISA*$A)  ) 

011960 

X3*K3«A4 

011980 

YJ*Y3-M2»A4 

012030 

A3«A4 

0120  20 

N3»M2 

012040 

012060 

DETERMINATION  OF  TH6  COEFFICIENTS 

012030 

dlZlOO 

60  02*<2.0*tN3-T3l4M3-T4) /A3 

312120 

03*<-«3«N34T34T4)  /  tA3*»3> 

012140 

012160 
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COMPUTATION  OF  THE  POLYNOMIAL  012180 

012200 

70  OXaUK-PC  012220 

80  V(K) =QO*OX»(Q1*OX»(Q2+OX*<13) )  012240 

RETURN  312260 

012280 

ERROR  EXIT  J12330 

012320 

90  WRITE  (6,2090)  012340 

GO  TO  99  012360 

11  WRITE  (6,2091)  012380 

GO  TO  99  012430 

95  WRITE  (6,2095)  012420 

GO  TO  97  012440 

96  WRITE  (6,2096)  012460 

97  WRITE  (6,2097)  I,X(I>  012480 

99  WRITE  (6,2099)  L0,N0  012500 

RETURN  012520 

0 12540 

FORMAT  STATEMENTS  012560 

012530 

2090  FORMAT  (1X/22H  L  *  1  OR  LESS./)  012600 

2091  FORMAT  (1X/22H  N  *  0  OR  LESS./)  012620 

2095  FORMAT  (1X/27H  IDENTICAL  X  VALUES. / )  012640 

2096  F0RMAT(1X/33H  X  VALUES  OUT  OF  SEOUENCE./)  012660 

2097  FORMAT  (&H  I  a ,  17, 10  X,  6H  X(  I)  a,E12.3)  012680 

2099  FORMAT  (6H  L  *,I7,10X,3HN  *,X7/36H  ERROR  DETECTED  IN  ROUTINE  012730 

1INTRPL)  012720 

ENO  012740 


203 


APPENDIX  D 
PROGRAM  CHIFPD 
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oooooooooooooo 


PROGRAM  CHIFPO (INPUT, OUTPUT, TAPE5*INPUT,TAPE6*OUTPUT> 


PROGRAM  'CHIFPO*  CALIBRATES  THE  'HIFRO  '  PROGRAM  INPUT  OATA. 

THE  PROGRAM  COMPUTES  THE  FOLLOWING  FOR  EACH  (X,Z)  OATA  POINT  I 
<1>  MAGNITUOE  R=SQRT(X**2tZ»*2)  — »  R  IN  COUNTS 

<Z>  ANGLE  ALPHA*R/(138. 6848159*57. 29577951)  — >  ALPHA  IN  PAOIAnS 

(3)  AOJ USTEO  R*RA*R/ COS (ALPHA)  — ►  RA  IN  COUNTS 

(4)  AOJUSTED  X*XA*X*RA/R  — »  XA  IN  COUNTS 

(5)  AOJUSTED  Z-ZA*Z*RA/R  — *  ZA  IN  COUNTS 

OATA  ARE  READ  ANO  PRINTED  IN  THE  STANOARO  'HIFPO*  PROGRAM  FORMAT. 

01  MENSI  ON  X(4)  ,Z(4)  ,XA<4)  ,  ZA  (4» 

OATA  RAO/57. 29577951/, CON/138. 68481 59/ 

FCT*CON*RAO 

10  REAO(5,1000)  FI, (X(I),Z(I>  ,1*1,4) 

IF  (EOF  (5))  999,20 
20  00  100  1*1,4 

R*SQRT (X(I)**2*Z<I)**2) 

ALPH*R/FCT 
C1*C0S( ALPM) 

XA (I ) *X ( I) /Cl 
ZA(I)*Z(H/C1 
100  CONTINUE 

WRITE(6, 10001  FI, (XA(I) , ZA (I ) ,1*1,4) 

GO  TO  10 
999  STOP 

1090  FORM  AT ( A5 , 8F7 . 0) 

ENO 


205 


*U.S.Go,ernment  Printing  Office:  1981  757-002/422 


000100 

000120 

000140 

000160 

000180 

000200 

000220 

000240 

000260 

000280 

000300 

000320 

000340 

000360 

000380 

000400 

000420 

000440 

000460 

000480 

000500 

009520 

000540 

000560 

000580 

000600 

000620 

000640 

000660 

000680 

000700 

000720 


